VB网络版系统开发——远程连接SQL2000数据库代码
5星 · 超过95%的资源 需积分: 10 69 浏览量
2012-12-24
22:46:41
上传
评论
收藏 35KB DOCX 举报 
VB 网络版系统开发——远程数据库连接
一、PublicVar 模块：
Public LoginSucceeded As Boolean '用户登录标志
Public UserID As String '用户 ID
Public UserStyle As String '保存用户类型
Public ConnectionString As String '数据库连接字符串
二、OPeratDataBase 模块：
Public Function GetConnStr() As String
'得到数据库连接字符串，用户可以在此处设置连接字符串
'User ID 是数据库用户 ID，Password 是登陆密码
'Initial Catalog 是数据库名，Data Source 是服务器名称
GetConnStr = ConnectionString
End Function
Public Function OpenConn(ByRef Conn As ADODB.Connection) As Boolean
'打开数据库连接，连接成功返回 true，出错时返回 false
Set Conn = New ADODB.Connection
'出错处理
On Error GoTo ErrorHandle
Conn.Open GetConnStr
OpenConn = True
Exit Function
ErrorHandle:
MsgBox "连接数据库失败！请重新连接！"
OpenConn = False
Exit Function
End Function
Public Sub ExecuteSQL(ByVal SQL As String, ByRef msg As String)
'执行 SQL 语句
Dim Conn As ADODB.Connection
Dim sTokens() As String
'出错处理
On Error GoTo ErrorHandle
'判断 SQL 语句
sTokens = Split(SQL)
If InStr("INSERT,DELETE,UPDATE", UCase((sTokens(0)))) Then
'打开数据库连接
If OpenConn(Conn) Then
Conn.Execute SQL
msg = sTokens(0) & "操作执行成功！"
End If
Else
msg = "SQL 语句有误：" & SQL
End If
1
剩余15页未读，继续阅读
资源评论
ynlon2015-01-12谢谢，很好用！
wxdhlg2013-10-21值得参考，谢谢！
P454Q2014-01-23不错，不过就是数据库的连接怎么弄没说- liuboxiaoliu2014-05-14就是没有说清楚怎么用
- licc3122015-08-04谢谢！对我有用。
