1，使用ADO connection对象
创新互联公司是一家朝气蓬勃的网站建设公司。公司专注于为企业提供信息化建设解决方案。从事网站开发，网站制作，网站设计，网站模板，微信公众号开发，软件开发，成都小程序开发，10余年建站对成都发电机维修等多个领域，拥有丰富的网站维护经验。
首先，要建立ADO引用，定义connection这个类，然后实例化对象。
代码完成如下：
span style="font-size:18px;"Dim objCn As New Connection, objRs As New Recordset
objCn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;" "Data Source=" App.Path "\实例01.mdb"
objCn.Open
/span
2，使用ODBC数据源
首先，打开电脑上的ODBC数据源，建立关系。
步骤如下：
1），打开电脑上的ODBC数据源
如下图所示：
2）点击添加
3）命名
4）和数据库源建立关系
5）用代码实现连接
span style="font-size:18px;"
dim objCn As Connection
Set objCn = New Connection
objCn.Open "DSN=实例2DSN"
/span
3、ADO Data 控件创建连接
1）右击data控件，选择ADODC属性
2）从三种连接资源中选择一种。
使用data Link 文件：直接点击浏览，找到包含连接字符串的.udl文件即可
使用ODBC数据源连接，单击新建
选择用户数据库，之后的操作跟2中步骤一样。
使用连接字符串：单击生成
测试连接
4、使用数据环境设计器创建数据库连接
添加引用
右击创建连接，在右击想要连接的属性，之后的操作跟data控件中使用字符串中的操作一致
如果要程序直接连接DB2数据库，必须要有连接数据库的驱动程序，连接的代码，你可以参考如下（以前用C#写的，你改成VB.NET即可，ODBC连接对象）
public OdbcConnection Db2Conn()
{
string str = "DRIVER=IBM DB2 ODBC DRIVER;UID=db2admin;PWD=db2admin;AUTHENTICATION=SERVER;PORT=50000;HOSTNAME=192.168.100.98;PROTOCOL=TCPIP;DATABASE=YCDATA";
OdbcConnection Conn = new OdbcConnection(str);
return Conn;
}
如果你是开发桌面程序而又不想在客户端安装数据库的驱动程序，那么你可以采用web网站（含webservice）或者remoting方式，只需要在服务端安装驱动即可
Imports System.Data
Imports System.Data.SqlClient
Module 连接数据库
Public Server1 As String
Public DataBase1 As String
Public Function GetTable(ByVal sqlstr$) As DataTable
Dim SqlConn As SqlConnection = New SqlConnection("server=" Server1 ";database=" DataBase1 ";integrated security=true") '声明这些SQL的类
Dim facDataAdapter As SqlDataAdapter = New SqlDataAdapter
Dim SqlComm As SqlCommand = New SqlCommand(sqlstr, SqlConn)
facDataAdapter.SelectCommand = SqlComm
Dim dt As DataTable = New DataTable
facDataAdapter.Fill(dt)
Return dt
End Function
End Module
VB.NET中有控件可以真接接点击属性进行连接配置.
SqlConnect数据连接控件.点击ConnectionString属性进行配置就可以了.
VB.NET中没有RecordSet了.取而代之的是DataSet.
在VB.net中可以先用SqlConnection对像来连接数据库再用SqlDataAdapter对像来读取数据并填充到DataSet里.然后就可以进行数据绑定了.
例:
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";
conn.open
da
=
new
SqlDataAdapter
(,conn)
da.fill(ds)
