Vb 6.0 ado连接mysql_VB6.0使用ADO对象连接数据库

1. 定义连接对象

Global DBconnect As New ADODB.Connection

2. 执行连接语句

If DBconnect.State = adStateOpen And Not IsEmpty(adStateOpen) Then DBconnect.Close

l         连接ODBC

DBconnect.ConnectionString = "dsn=DataAliasName;uid=UserID;pwd=Passwd;"

l         直接连接Access为

Dbconnect.Provider = "Microsoft.jet.OLEDB.4.0"  // Access 97为3.51

DBconnect.ConnectionString = "FilePath\FileName.mdb"

l         连接Oracle

DBconnect.Provider = "MSADORA"

DBconnect.ConnectionString = "user/mypass@servicename

l         连接SQL Server

DBconnect.Provider = "SQLOLEDB.1"

DBconnect.ConnectionString = "DATABASE= ;SERVER= ;UID= ;PWD= ;"

或者可以使用 DBconnect.Open "SERVER" , "USERID" , "PASSWord"

DBConnect.Open

3. 取查询结果集

Global RS As New ADODB.Recordset

Global PS As New ADODB.Recordset

If RS.State = adStateOpen And Not IsEmpty(adStateOpen) Then RS.Close

RS.Open SQLStr, DBconnect, adOpenKeyset

4. 执行SQL语句

DBconn.Execute SQLStr

5. 关闭数据库

DBconnect.Close

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:1024 设计师:我叫白小胖 返回首页

打赏作者

王霸鲸

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值