本站地址:http://www.bajiao123.com
vb与sqlserver数据库连接的问题
最近编一个物资管理系统,用VB6.0+SQLSERVER2000,在编写executesql函数时出错,www.chinai tp 采吧采吧不是罪 ow er.comTi3b9QL
Public Function executesql(ByVal sql As String, msgstring As String) As ADODB.Recordset
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim stokens() As String
On Error GoTo executesql_error
stokens = Split(sql)
Set cnn = New ADODB.Connection
cnn.Open connectstring
If InStr("insert,delete,update", UCase$(stokens(0))) Then
cnn.Execute sql
msgstring = stokens(0) & "query sucessful"
Else
Set rst = New ADODB.Recordset
rst.Open Trim$(sql), cnn, adOpenKeyset, adLockOptimistic
Set executesql = rst
msgstring = "查询到" & rst.RecordCount & "条记录"
End If
executesql_exit
Set rst = Nothing
Set cnn = Nothing
Exit Function
executesql_error
msgstring = "查询错误" & Err.Description
Resume executesql_exitwww.chinai tp 采吧采吧不是罪 ow er.comTi3b9QL
End Function
Public Function connectstring() As String
connectstring = "filedsn=material.dsn;uid=sa;pwd=sa"
End Functionwww.chinai tp 采吧采吧不是罪 ow er.comTi3b9QL
www.chinai tp 采吧采吧不是罪 ow er.comTi3b9QL
预编译执行时出现错误,提示子程序或函数未定义,而且光标指向 EXECUTESQL_EXIT,我已经把MICROSOFT ACTIVEX OBJECTS 2.6 LIBRARY 添加了,数据源也设好了www.chinai tp 采吧采吧不是罪 ow er.comTi3b9QL
www.chinai tp 采吧采吧不是罪 ow er.comTi3b9QL
www.chinai tp 采吧采吧不是罪 ow er.comTi3b9QL
本站地址:http://www.bajiao123.com
