使用 sqlAdapter 更新数据库 。使用SqlCommandBuilder 自动生成更新语句。
但是 更新的表 有的列 的列名 为关键字 (default,order)之类的 更新数据库的时候出错不知道怎么解决请大家指点
我已经尝试把 CommandText中的default ,order 替换成 [的default],[order].但还是不行
但是 更新的表 有的列 的列名 为关键字 (default,order)之类的 更新数据库的时候出错不知道怎么解决请大家指点
我已经尝试把 CommandText中的default ,order 替换成 [的default],[order].但还是不行
http://blog.csdn.net/zhzuo/archive/2004/08/06/67037.aspx
string str="yes"
string strsql="update table set A="+str;
SqlCommand cmd=new SqlCommand(strsql,conn);
conn.Open()
cmd.ExecuteNority();
cmd.dispose();
conn.close();
Imports System.Data.SqlClient
Module cnnCSSDatabase 'Public c_strCSS_Connection As String = "data source=Freddie;initial catalog=CSS;integrated security=SSPI;persist security info=False;workstation id=FREDDIE;packet size=4096"
Public c_strCSS_Connection As String = "workstation id=DGSQL001;packet size=4096;user id=LocatorAdmin;Password=Locator;data source=DGSQL001;persist security info=False;initial catalog=LOCATOR"
Public DS As DataSet
Public DR As DataRow Public dstUserInfo As DataSet
Public dstMC As New DataSet
Public Function cmdSelectDatabase(ByVal strSQL As String) As DataSet
Dim dadDatebase As New SqlClient.SqlDataAdapter()
Dim cmdSelect As New SqlClient.SqlCommand()
Dim cnnCSS As New SqlClient.SqlConnection()
Try
cnnCSS.ConnectionString = c_strCSS_Connection
cnnCSS.Open()
cmdSelect.CommandText = strSQL
cmdSelect.Connection = cnnCSS
dadDatebase.SelectCommand = cmdSelect
DS = New DataSet()
dadDatebase.Fill(DS)
cnnCSS.Close()
Catch
MsgBox(Err.Description)
End Try
If DS.Tables(0).Rows.Count > 0 Then
Return DS
Else
Return Nothing
End If
End Function Public Sub cmdInsertDatabase(ByVal strSQL As String)
Dim dadDatebase As New SqlClient.SqlDataAdapter
Dim cmdInsert As New SqlClient.SqlCommand
Dim cnnCSS As New SqlClient.SqlConnection
Try
cnnCSS.ConnectionString = c_strCSS_Connection
cnnCSS.Open()
cmdInsert.CommandText = strSQL
cmdInsert.Connection = cnnCSS
dadDatebase.InsertCommand = cmdInsert
cmdInsert.ExecuteNonQuery()
cnnCSS.Close()
Catch
MsgBox(Err.Description)
End Try
End Sub Public Sub cmdUpdateDatabase(ByVal strSQL As String)
Dim dadDatebase As New SqlClient.SqlDataAdapter
Dim cmdUpdate As New SqlClient.SqlCommand
Dim cnnCSS As New SqlClient.SqlConnection
Try
cnnCSS.ConnectionString = c_strCSS_Connection
cnnCSS.Open()
cmdUpdate.CommandText = strSQL
cmdUpdate.Connection = cnnCSS
dadDatebase.UpdateCommand = cmdUpdate
cmdUpdate.ExecuteNonQuery()
cnnCSS.Close()
Catch
MsgBox(Err.Description)
End Try
End Sub Public Sub cmdDeleteDatabase(ByVal strSQL As String)
Dim dadDatebase As New SqlClient.SqlDataAdapter
Dim cmdDelete As New SqlClient.SqlCommand
Dim cnnCSS As New SqlClient.SqlConnection
Try
cnnCSS.ConnectionString = c_strCSS_Connection
cnnCSS.Open()
cmdDelete.CommandText = strSQL
cmdDelete.Connection = cnnCSS
dadDatebase.DeleteCommand = cmdDelete
cmdDelete.ExecuteNonQuery()
cnnCSS.Close()
Catch
MsgBox(Err.Description)
End Try
End SubEnd Module