VB编程连接SQL SEVER数据库问题
来源:百度知道 编辑:UC知道 时间:2024/05/22 06:52:58
我运行VB程序后出现[MICROSOFT[ODBC SQL SERVER DRIVER [SQL SERVER]第一行:"from"附近有语法错误
那个语法错误应该在哪儿
还有就是这个类模块中的代码
Public Function getlist(byvalsql As String, combo As ComboBox) As ComboBox
Dim mydboper As New DBOperation
Dim rs As ADODB.Recordset
'建立连接
mydboper.DB_connect
Set rst = mydboper.querysql(sql)
If Not rst.EOF Then
With rst
Do While Not .EOF
combo.AddItem .Fields(0)
.MoveNext
Loop
End With
combo.ListIndex = 0
End If
rst.Close
'关闭连接
mydboper.db_disconnect
getidbyname = tmpid
End Function
中的Set rst = mydboper.querysql(sql)这句话中括号里的SQL有错误
还有个
'声明一个连接
Dim conn As ADODB.Connection
'声明一个数据集对象
Dim rst As ADODB.Recordset
Public Sub DB_connect()
'建立连接
Set conn = New ADODB.Connection
conn.Open Connectstring
End Sub
Public Fu
那个语法错误应该在哪儿
还有就是这个类模块中的代码
Public Function getlist(byvalsql As String, combo As ComboBox) As ComboBox
Dim mydboper As New DBOperation
Dim rs As ADODB.Recordset
'建立连接
mydboper.DB_connect
Set rst = mydboper.querysql(sql)
If Not rst.EOF Then
With rst
Do While Not .EOF
combo.AddItem .Fields(0)
.MoveNext
Loop
End With
combo.ListIndex = 0
End If
rst.Close
'关闭连接
mydboper.db_disconnect
getidbyname = tmpid
End Function
中的Set rst = mydboper.querysql(sql)这句话中括号里的SQL有错误
还有个
'声明一个连接
Dim conn As ADODB.Connection
'声明一个数据集对象
Dim rst As ADODB.Recordset
Public Sub DB_connect()
'建立连接
Set conn = New ADODB.Connection
conn.Open Connectstring
End Sub
Public Fu
用OLEDB ,用ADO 连接
Public conn As String '定义连接数据库
conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "数据库名" & ";Persist Security Info=False"
这是连接ACCESS 的
With Adodc1
.ConnectionString = conn
.CommandType = 8
.RecordSource = "select * from 表名"
.Refresh
END WITH
你对比一下难度就发现了.如果连接SQ 的把ADO 的字符 COPY 到CONN 里就可以
GOOD LUCK