以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]代码问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=61230)
--  作者：pcxjxjhkw
--  发布时间：2014/12/9 12:44:00
--  [求助]代码问题
\'\'\'将系统设置参数及值保存到 系统设置表中
\'\'参数0：系统参数名
\'\'参数1：值
\'连接表
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELECT * From {系统设置}"
dt = cmd.ExecuteReader()

Dim str As String = Args(0)  \'系统参数名
Dim str1 As String = Args(1)  \'值
Dim dr As DataRow= dt.SQLFind("系统参数名 = \'" & str & "\'")  \'\'查找此行
If dr Is Nothing Then  \'如果未找到此行
    dr = dt.AddNew()   \'则增加一行
End If
dr("系统参数名") = Args(0)
dr("值") = Args(1)
dt.Save()


自定义了一函数，但在运行时不能保存数据，不知是什么原因。求助大家。
--  作者：有点甜
--  发布时间：2014/12/9 14:01:00
--  

 dt = cmd.ExecuteReader(true)

 

 最后 dt.Save