求助代码更改,把操作外部数据源换到操作内部数据 - 专家坐堂 - 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 相关函数转换成操作内部数据源.

不要设置cmd.ConnectionName就是操作的内部表

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

cmd.ExecuteNonQuery

代码最后两句怎么改才能找到对应狐表内部数据表.

现在用的代码是

Dim q1str As String = cv.TrimEnd(",")

q1str = q1str.Trim("'")

Dim qstr As String = cn.TrimEnd(",")

qstr = qstr.TrimStart("[")

Dim hstr As String = qstr

hstr = hstr.TrimEnd("]")

kc = dtt.AddNew()

kc(hstr) = q1str

kc.Save

现在只有填写单个列名的时候管用,在多个列填写数据的时候,就不起作用了.求助怎么改一下.谢谢

[此贴子已经被作者于2021/1/5 1:48:15编辑过]

内部表建议直接使用datatable，即AddNew，完全没有必要使用sql

kc = dtt.AddNew()
kc(cn.TrimEnd(",")) = cv.TrimEnd(",")
kc.Save

只用这个代码的时候, 填入数据的时候报错.

.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2020.5.29.8

错误所在事件：自定义函数,audRow

详细错误信息：

调用的目标发生了异常。

列“[客户ID],[产品ID]”不属于表测试。

[此贴子已经被作者于2021/1/5 9:23:04编辑过]

很明显列名不正确，只能一个列一个列的赋值，比如

kc("客户ID") = xxx1

kc("产品ID") = xxx2

如何使用

For Each

语句遍历数组,并列出数组的值.

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