求助代码更改,把操作外部数据源换到操作内部数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim e As RequestEventArgs = Args(0)

Dim cmd As New SQLCommand

cmd.C

Dim arr As jarray

Dim tbn As String = e.Values("tablename") '请求操作的数据表

Dim cn,cv As String

Dim time As String = Format(Date.Now,"yyyy-MM-dd HH:mm:ss")

Select Case e.Values("reqType")

Case "append"

arr = jarray.parse(e.Values("content")) '将请求内容转为数组

For Each r As jtoken In arr '对数组按行遍历

cn = "" '要添加内容的列

cv = "" '要添加的内容

For Each jp As jproperty In r

cn = "[" & jp.name & "]," & cn

cv = "'" & jp.value.ToString.Replace("'","''") & "'," & cv

'如果操作的是日志和审核表,都要同时加上服务器时间

If Array.Indexof({"日志","审核"},tbn) > -1 Then

cn = cn & "[time]," & iif(tbn="日志","ip,","") '日志表再加上ip列

cv = cv & "'" & time & "'," & iif(tbn="日志","'" & e.Request.RemoteEndPoint.ToString & "',","")

End If

cmd.CommandText = "insert into " & tbn & "(" & cn.TrimEnd(",") & ") values(" & cv.TrimEnd(",") & ")"

cmd.ExecuteNonQuery

求助,如何将cmd 相关函数转换成操作内部数据源.

主题：求助代码更改,把操作外部数据源换到操作内部数据