VB读写SQL（一）——模块篇

最新推荐文章于 2025-08-09 09:25:36 发布

原创

最新推荐文章于 2025-08-09 09:25:36 发布 · 260 阅读

标签

#oracle #数据库

收录于

这篇博客介绍了如何使用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 Source=127.0.0.1" '如果不用这个模块也行可以，这一句便是常用的引擎。