VB与数据库的连接步骤以相关语句.docx

vb6.0连接

sql2023数据库的具体步骤

1．定义连接对象

GlobalDBconnectAsNewADODB.Connection2．执行连接语句

IfDBconnect.State=adStateOpenAndNotIsEmpty(adStateOpen)ThenDBconnect.Closel连接

ODBCDBconnect.ConnectionString=“dsn1．定义连接对象

GlobalDBconnectAsNewADODB.Connection2．执行连接语句

IfDBconnect.State=adStateOpenAndNotIsEmpty(adStateOpen)Then

DBconnect.Closel连接

ODBC

DBconnect.ConnectionString=

“dsn=DataAliasName;uid=UserID;pwd=Passwd;“l直接连接

Access为

Dbconnect.Provider=“Microsoft.jet.OLEDB.4.0“//Access97

为

3.51

DBconnect.ConnectionString=“FilePathFileName.mdb“

l连接

Oracle

DBconnect.Provider=“MSADORA“DBconnect.ConnectionString=“user/mypass@servicenamel连接

SQLServer

DBconnect.Provider=“SQLOLEDB.1“

DBconnect.ConnectionString =

“DATABASE=;SERVER=;UID=;PWD=;“

或者可以使用

DBconnect.Open“SERVER“,“USERID“,“PASSWORD“

DBConnect.Open

取查询结果集

GlobalRSAsNewADODB.RecordsetGlobalPSAsNewADODB.Recordset

IfRS.State=adStateOpenAndNotIsEmpty(adStateOpen)ThenRS.Close

RS.OpenSQLStr,DBconnect,adOpenKeyset

执行SQL语句

DBconn.ExecuteSQLStr

PDF文件使用“pdfFactoryPro“试用版本创立

“://fineprint.cn/“fineprint.cn

关闭数据库DBconnect.CloseVB使用

ADO数据库可以分为有源数据库和无源数据库，即是否使用了

DSN数

据源，如下例：

1、在连接数据库前首先要在

VB菜单中“工程”-“引用”从中选择

microsoftactiveX

Dataobjects2.6library和

microsoftactiveXDataobjectsrecordset2.6两个组件，这是在连接数据前所必做的工作。

2、接下来定义

ADO的连接对象，如下所示：

Setconn=NewADODB.ConnectionSetrs=NewADODB.Recordset

第一种方法承受的是无源的数据库连接方法

conn.ConnectionString=“Driver={sql

server};server=JSZX3-11;uid=sa;pwd=;database=wzc“conn.ConnectionTimeout=30

conn.Open

rs.Open“select用户名,密码

fromloginwhere用户名=”“Trim(Combo1.Text)

“”And密码=”“Trim(Text1.Text)“”“,conn,adOpenStatic,adLockReadOnly,adCmdText

Ifrs.EOF=TrueAndrs.BOFThen

m=MsgBox(“请重登录“,vbExclamation)Text1.Text=““

Text1.SetFocusElseForm1.Hide

EndIfrs.Close

这是其次种方法连接数据库的方法，这一种方法是承受有源的方法与数据库连接

的方法，代码如下所示：

Setconn=NewADODB.Connection

Setrs=NewADODB.Recordsetconn.ConnectionString=