vb如何连接sql server数据库

在VB6.0中，数据库访问接口有三种

1. ActiveX 数据对象(ADO)
2. 远程数据对象(RDO)
3. 数据访问对象(DAO)

使用ActiveX（ActiveX Data Object）数据对象连接数据库

• 1.使用ADO连接数据库

【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.使用DAO连接对象连接数据库
  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 

3.使用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