VB如何連接SQL Server數據庫

在VB6.0中，數據訪問接口有三種：

1、ActiveX數據對象（ADO）

2、遠程數據對象（RDO）

3、數據訪問對象（DAO）

1.使用ADO（ActiveX Data Objec，ActiveX數據對象）連接SQL Server

1）使用ADO控件連接
使用ADO控件的ConnectionString屬性就可以連接SQL Server，該屬性包含一個由分號分隔的argument=value語句的字符串，用於指定建立與數據源連接的信息，語法如下：
[vb]
Provider=Drive;Password=UserPassword;PersistSecurity Info=False;User ID=UserName;Initial Catalog=Data Name;DataSource=ServerName 

例：使用ADO控件連接名為student的數據庫
[vb] 
PrivateSub Form_Load() 
Adodc1.connectionstring="Provider=SQLOLEDB.1;Password=;PersistSecurity Info=False;User ID=sa;Initial Catalog=student;Data Source=." 
End Sub 

2）使用ADO對象連接
ADO的數據庫訪問技術，不僅可以通過VB提供的控件實現，還可以通過ADO相關的對象實現。ADO對象包括了command對象、connection對象、recordset對象、Error對象、field對象、parameter對象、property對象，其中，connection對象是用來管理與數據庫的連接的

例：使用connection對象的Open方法連接名為student的數據庫
[vb]
Dim cnn as ADODB.Connection 
Privatesub Form_Load() 
set cnn=New ADODB.Connection 
Cnn.open="provider=SQLOLEDB;password=;PersistSecurity Info=true;User ID=sa;Initial Catalog=student;Data Source=." 
End Sub 

2.使用DAO（Data Access Object，數據訪問對象)連接SQL Server
使用DAO連接SQL Server可以使用VB提供的Data控件實現，使用其訪問SQL Server時需要掌握connect屬性用於定義所要連接數據庫的類型，由於Data控件采用的是Access/Jet為數據引擎，所以訪問SQL Server時需要用ODBC間接訪問
connect屬性訪問ODBC時的字符串格式設置：
[vb] 
ODBC；DataBase=DataName；UID=UserName；PWD-UserPassword；DSN=DataSourceName 

例：用Data控件通過ODBC中的studentinfo數據源連接名為student的數據庫
[vb]
PrivateSub Form_Load() 
Data1.connect="ODBC;DataBase=student;UID=sa;PWD=123;DSN=studentinfo" 
End Sub