飒漫画狐妖小红娘:VB编程连接SQL SEVER数据库问题
来源:百度文库 编辑:神马品牌网 时间:2024/10/07 17:55:52
我运行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 Function querysql(byvalsql As String) As ADODB.Recordset
'执行查询
Set rst = New ADODB.Recordset
rst.Open Trim$(sql), conn, adOpenKeyset, adLockOptimistic
'rst.movelast 'get recordcount
Set querysql = rst
End Function
Public Sub executesql(byvalsql As String)
'执行SQL语句
conn.Execute (sql)
End Sub
Public Sub db_disconnect()
'关闭选择
conn.Close
'释放连接
Set conn = Nothing
End Sub
这个类模块中的rst.Open Trim$(sql), conn, adOpenKeyset, adLockOptimistic 这句代码也错误 怎么搞的呀???
是怎么回事呀
请各位大哥哥帮帮小弟哈
我们做课设呢 马上就要答辩了 可还是错误到处都是
那个语法错误应该在哪儿
还有就是这个类模块中的代码
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 Function querysql(byvalsql As String) As ADODB.Recordset
'执行查询
Set rst = New ADODB.Recordset
rst.Open Trim$(sql), conn, adOpenKeyset, adLockOptimistic
'rst.movelast 'get recordcount
Set querysql = rst
End Function
Public Sub executesql(byvalsql As String)
'执行SQL语句
conn.Execute (sql)
End Sub
Public Sub db_disconnect()
'关闭选择
conn.Close
'释放连接
Set conn = Nothing
End Sub
这个类模块中的rst.Open Trim$(sql), conn, adOpenKeyset, adLockOptimistic 这句代码也错误 怎么搞的呀???
是怎么回事呀
请各位大哥哥帮帮小弟哈
我们做课设呢 马上就要答辩了 可还是错误到处都是
用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