vb与sqlserver数据库连接的问题
来源:互联网 发布:2015软件评测师真题 编辑:程序博客网 时间:2024/04/24 09:01
最近编一个物资管理系统,用VB6.0+SQLSERVER2000,在编写executesql函数时出错,
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_exit
End Function
Public Function connectstring() As String
connectstring = "filedsn=material.dsn;uid=sa;pwd=sa"
End Function
预编译执行时出现错误,提示子程序或函数未定义,而且光标指向 EXECUTESQL_EXIT,我已经把MICROSOFT ACTIVEX OBJECTS 2.6 LIBRARY 添加了,数据源也设好了
- vb与sqlserver数据库连接的问题
- vb.net数据库连接的问题
- C#与sqlServer数据库连接
- C#与SQLServer数据库连接
- vb.net与数据库连接
- VB与数据库连接方式
- VB与Access数据库连接
- VB与数据库连接
- SQLServer数据库连接的配置
- JAVA与SQLServer数据库连接总结
- vb与access2003数据库连接程序
- VB与数据库连接小知识
- 总结数据库连接与操作的问题
- Servlet与mysql数据库连接的小问题
- SQLserver数据库连接问题(wfa程序登录源代码)
- 用vb与MS sql数据库连接
- VB.NET 与*.udl文件数据库连接调用
- 【VB与数据库】——数据库连接
- 开立方笔算法
- 如何在 dataGrid 上的第一列加上 CheckBox,当选中某行的 CheckBox 后,那一行的 datagrid 变为绿色。
- 用struts+hibernate做网站中遇到的问题与解决过程[原创]
- 共享软件作者怎样才能月入万元(一)
- 在2000和xp下隐藏进程,VC6.0测试通过
- vb与sqlserver数据库连接的问题
- 共享软件作者如何才能月入万元(三)
- 《设计模式解析》第6章 Facade(外表)模式
- JAVA开发者应该去的20个英文网站
- 一个特牛的日期时间判断正则表达式
- J2ME入门专题:搭建开发环境
- 大学刚读了一年的程序员
- 用JAVA程序取得IP地址
- 典型多线程小实例:球的运动