在VB6中,我连接SQL2000没有任何问题,使用连接字符串。
但在VB2005我不知道该如何做?请教各位是否有这方面的例子代码或者程序?谢谢。我查了好多资料,说的都是连接ACCESS的代码,没有SQL的完整代码。
我不用绑定,我想利用连接字符串,当查询完数据后,我就要关闭连接。以下是我用VB6写的连接SQL2000完整代码,往数据库中写入数据
Private Function WriteSQL(Data1() As String, Data2() As Single, Data3() As String, Data4() As String) As String '写入数据库
Dim m As Integer,n As Integer,k As Integer
Dim strSQL As String
Dim cn As ADODB.Connection
On Error Resume Next
Set cn = New ADODB.Connection
Dim cn_str As String
cn_str = "DRIVER=SQL Server;server=" & ServerName & ";uid=sa;pwd=;database=Test"
cn.Open cn_str For m = 0 To UBound(Data4)
strSQL = "'" & Data1(m) & "',"
For n = 0 To UBound(Data2, 2)
strSQL = strSQL & Data2(m, n) & ","
Next
strSQL = strSQL & "'" & Data3(m) & "'"
strSQL = "INSERT INTO " & Data4(m) & " VALUES(" & strSQL & ")"
cn.Execute strSQL
Next cn.Close
Set cn = Nothing
End Function
但在VB2005我不知道该如何做?请教各位是否有这方面的例子代码或者程序?谢谢。我查了好多资料,说的都是连接ACCESS的代码,没有SQL的完整代码。
我不用绑定,我想利用连接字符串,当查询完数据后,我就要关闭连接。以下是我用VB6写的连接SQL2000完整代码,往数据库中写入数据
Private Function WriteSQL(Data1() As String, Data2() As Single, Data3() As String, Data4() As String) As String '写入数据库
Dim m As Integer,n As Integer,k As Integer
Dim strSQL As String
Dim cn As ADODB.Connection
On Error Resume Next
Set cn = New ADODB.Connection
Dim cn_str As String
cn_str = "DRIVER=SQL Server;server=" & ServerName & ";uid=sa;pwd=;database=Test"
cn.Open cn_str For m = 0 To UBound(Data4)
strSQL = "'" & Data1(m) & "',"
For n = 0 To UBound(Data2, 2)
strSQL = strSQL & Data2(m, n) & ","
Next
strSQL = strSQL & "'" & Data3(m) & "'"
strSQL = "INSERT INTO " & Data4(m) & " VALUES(" & strSQL & ")"
cn.Execute strSQL
Next cn.Close
Set cn = Nothing
End Function
虽然vb2005中可以添加ADO引用来实现vb6的代码,不过放弃ado.net的优势还不如不用vb2005...