这篇博客介绍了如何使用VB进行SQL数据库的连接与操作，包括建立ADODB.Connection对象、打开和关闭数据库连接、执行SQL语句等功能。通过示例函数展示了如何设置数据库连接参数，如服务器IP、数据库名、用户名和密码，以及处理连接错误的方法。
'数据库
Public cn As ADODB.Connection
Public rs As ADODB.Recordset
Public addFlag As Boolean '声明部分
Public Function openCn(ByVal CIp As String, ByVal DBName As String) As Boolean '连接模块 填写数据库等信息
Dim mag As String
On Error GoTo strerrmag
Set cn = New ADODB.Connection
cn.ConnectionTimeout = 5
cn.Provider = "sqloledb"
cn.Properties("Data Source").Value = CIp '服务器IP
cn.Properties("Initial Catalog").Value = DBName '数据库名字
' cn.Properties("Integrated Security").Value = "SSPI" '登陆类型
cn.Properties("User ID").Value = "sa" '用户名
cn.Properties("password").Value = "123456" '密码
'sql = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=;Initial Catalog=pubs;Data
最低0.47元/天 解锁文章
9595
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
