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 

相关文章

Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强...
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式,竟然没有好的办...
在项目中添加如下代码:新建窗口来显示异常信息。 Namespace...
转了这一篇文章,原来一直想用C#做k3的插件开发,vb没有C#用...
Sub 分列() ‘以空格为分隔符,连续空格只算1个。对所选...
  窗体代码 1 Private Sub Text1_OLEDragDrop(Data As Dat...