客户端vb程序有两个功能,从服务器端接受一个SQL Server文件,然后再用ADODB读取出数据。现请问读取时要怎么样读取,请问大致思路。谢谢。
现在已经知道数据库名,表名和路径App.path。直接查询不能成功。Dim Con As ADODB.Connection '定义连接
Dim RS As New ADODB.Recordset '定义记录集
SDBName = "vbdatabase"
STable = "student"
Set Con = New ADODB.Connection '不使用数据源名称(DSN: data source name)
Con.ConnectionString = "driver={SQL Server};" & _
"server=SICTCZ9;" & "database=" & SDBName
'"uid=" & "pwd="
' Recordser打开表table1
RS.Open "Select * from " & STable, Con, adOpenKeyset, adLockOptimistic
End Sub
现在已经知道数据库名,表名和路径App.path。直接查询不能成功。Dim Con As ADODB.Connection '定义连接
Dim RS As New ADODB.Recordset '定义记录集
SDBName = "vbdatabase"
STable = "student"
Set Con = New ADODB.Connection '不使用数据源名称(DSN: data source name)
Con.ConnectionString = "driver={SQL Server};" & _
"server=SICTCZ9;" & "database=" & SDBName
'"uid=" & "pwd="
' Recordser打开表table1
RS.Open "Select * from " & STable, Con, adOpenKeyset, adLockOptimistic
End Sub
Dim RS As New ADODB.Recordset '定义记录集
SDBName = "vbdatabase"
STable = "student"
Set Con = New ADODB.Connection '不使用数据源名称(DSN: data source name)
Con.ConnectionString = "driver={SQL Server};" & _
"server=SICTCZ9;" & "database=" & SDBName
'"uid=sa" & "pwd="
' Recordser打开表table1
RS.Open "Select * from " & STable, Con, adOpenKeyset, adLockOptimistic
End Sub