我想做好一个数据访问类文件以便在以后使用,只要传给他一个SQL字符串便执行相应的代码。
我想做好一个数据访问类文件以便在以后使用,只要传给他一个SQL字符串便执行相应的代码。
如果知道了数据表的字段名比较好做,问题是我写类的时候并不知道数据表的字段名//
如下:
类调用
Dim UPclass As New DATA_Class
UPclass.UpdateDATA("Update powers Set mf=@mf, tby=@tby, fj=@fj, bj=@bj, zs=@zs Where id=3")
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
DATA_Class.vb文件
Public Class DATA Class
Public Adpt As SqlDataAdapter
Public Conn As SqlConnection, Cmd As SqlCommand
Public SQL As String
Public DB = ConfigurationSettings.AppSettings("DB")
'--------------------------------------------------------------------------
Public Sub UpdateDATA(ByVal SqlName As String)
Conn = New SqlConnection( DB)
Conn.Open()
SQL = sqlName '传入的SQL命令
Cmd = New SqlCommand( SQL, Conn)
'------------这里边的怎么办,CheckBox11.Checked怎么传进来,Parameters.Add要怎么做---
' Cmd.Parameters.Add("@mf", CheckBox11.Checked)
' Cmd.Parameters.Add("@tby", CheckBox10.Checked)
' Cmd.Parameters.Add("@fj", CheckBox9.Checked)
' Cmd.Parameters.Add("@bj", CheckBox8.Checked)
' Cmd.Parameters.Add("@zs", CheckBox7.Checked)
'---------------------------------------------------------------------------------
Cmd.ExecuteNonQuery()
Conn.Close()
End Sub
End Class
我初步是想用正则表达把 SQL 字符串分割,如 Update powers Set mf=@mf, tby=@tby, fj=@fj, bj=@bj, zs=@zs Where id=3 再读出 @ 左右边的字符。不知大家有没有什么便好的办法?????