vb 链接数据库

2、用The OLE DB .NET Data Provider连接数据库
上面已经说过，利用The OLE DB .NET Data Provider可以访问Access、Oracle和SQL Server等种数据库，那么，它是怎样访问这些数据库的呢？The OLE DB .NET Data Provider是通过位于名称空间System.Data.OleDb类库下的OleDbConnection类来连接这三种不同类型的数据库的。
Dim strConnect As Sting=”Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\Data\ Example.mdb”
oleDbConnection1= New System.Data.OleDb.OleDbConnection(strConnect)
1)连接Sql Server数据库
Dim odbcDbConnetion1 As Microsoft.Data.OdbcConnection
Dim strConnect As Sting=”Driver={SQL Server};Server=服务器名;Uid=sa;pwd=;Database= 数据库名;”
例:
dim conn as SqlConnection
dim da as SqlDataAdapter
dim ds as Dataset
set conn = new SqlConnection
conn.ConnectionString="server=serverIP;database=databasename;uid=userid;pwd=password";
3)连接Oracle数据库
Dim oleDbConnection1 As OleDb.OleDbConnection
Dim strConnect As Sting=”Provider=MSDAORA;Data Source=服务器名;User ID=用户ID;Password=密码;”
odbcDbConnetion1=New Microsoft.Data.OdbcConnection(strConnect)
2)连接Oracle数据库
Dim odbcDbConnetion1 As Microsoft.Data.OdbcConnection
oleDbConnection1= New System.Data.OleDb.OleDbConnection(strConnect)
3、用The ODBC .NET Data Provider连接数据库
The ODBC .NET Data Provider连接数据库是通过OdbcConnection类来实现的，这个类位于名称空间Microsoft.Data.Odbc下，而名称空间Microsoft.Data.Odbc是封装在Microsoft.Data.Odbc.dll文件下的。
连接代码：
Dim ion1 As SqlClient.SqlConnection
Dim strConnect As String=”data source=服务器名;initial catalog=数据库名;user id=sa;password=;”
下面举例说明:
1)连接SQL Server数据库
Dim oleDbConnection1 As OleDb.OleDbConnection
Dim strConnect As Sting=”Provider=SQLOLEDB;Persist Security Info=False;Data Source=服务器名;Initial Catalog=数据库名;User ID=sa;Password=;”
conn.open
da = new SqlDataAdapter (<sql>,conn)
da.fill(ds)
1、用The SQL Server .NET Data Provider连接数据库
The SQL Server .NET Data Provider是利用SqlConnection类来连接SQL Server7.0或更高版本的数据库，SqlConnection类位于名称空间System.Data.SqlClient下。
中有控件可以真接接点击属性进行连接配置.
SqlConnect数据连接控件.点击ConnectionString属性进行配置就可以了.
中没有RecordSet了.取而代之的是DataSet.
在中可以先用SqlConnection对像来连接数据库再用SqlDataAdapter对像来读取数据并填充到DataSet里.然后就可以进行数据绑定了.
sqlConnection1=New System.Data.SqlClient.SqlConnection(strConnect)
sqlConnection1.open ‘打开数据库
sqlConnection1.close ‘关闭连接，释放资源
Dim strConnect As Sting=”Driver={Microsoft ODBC for Oracle};Server=服务器名;Uid=sa;pwd=;”
odbcDbConnetion1=New Microsoft.Data.OdbcConnection(strConnect)
oleDbConnection1=New System.Data.OleDb.OleDbConnection(strConnect)
2)连接Access数据库
假设要连接的Access数据库名为“Example.mdb”，存放在d:\Data\目录下。
Dim oleDbConnection1 As OleDb.OleDbConnection