vb adodc 怎么用代码实现数据库连接

新建工程时选数据工程，此时VB6集成调试环境左边工具箱内已加载了有关数据库编程必须的控件。

然后在FORM1窗体中添加ADODC控件和DATAGRID控件，将DATAGRID1的属性DATASOURCE选ADODC1，打开ADODC1控件属性页使用连接字符串，选生成，在提供者选项中选MICROSOFT jet 40 OLE DB Provider,然后按要求连接数据库等。在ADODC1控件属性页使用连接字符串空白文本窗口中就有一长串字符串，注意该字符串可复制到程序代码用于编程。ADODC1控件属性页的数据源内有命令文本（SQL）编写窗口可编写SQL查询语言。该窗口的SQL语句可复制到程序代码用于编程。

SQL查询语言主要结构为：

Select 查询字段 from 表名 Where 查询条件语句 [排序语句或分组语句]

查询字段必须分别用（西文）逗号分开或就用一个号代替，上述查询中排序语句建议最好应用。

SQL查询语言如有错程序运行时告诉你出错，作相应改动即可。本人一般先按上述连接，SQL用"SELECT FROM TabelName"作调试，无问题，用一个按钮孔件将前述需复制的连接字符串和SQL查询语言先复制于按钮控件的CLICK事件中备着，以便放着以后使用。然后删去ADODC1孔件，再添加ADODC1控件再添其他内容。

以下为代码实例:

Private Sub Form_Load()

Text1 = ""

With Adodc1

Adodc1ConnectionString = "Provider=MicrosoftJetOLEDB40;Data Source=E:\db1mdb;Persist Security Info=False"

Adodc1RecordSource = "select name from b1 order by name"

Adodc1Refresh

DataGrid1Refresh

End With

End Sub

Private Sub Text1_Change()

Adodc1ConnectionString = "Provider=MicrosoftJetOLEDB40;Data Source=E:\db1mdb;Persist Security Info=False"

Adodc1RecordSource = "select name from b1 where name >='" & Text1 & "' order by name"

Adodc1Refresh'对查询更新

DataGrid1Refresh

End Sub

1、有向导可用，你在屏幕左侧看跟

工具箱

挨着的有个

数据源

管理，这里点新数据源，就可以向导连接。

2、那个Microsoft

ActiveX

Data

Object缩写简称ADO，很好找，是有的，有空q我，给你发截图看。

3、

数据绑定

没有向导，也不需要，简单的设置一个datasource属性即可，不需要复杂的向导。

4、不是用ADO

控件

，而是用ADOnet

程序

集，要连接到

Microsoft

SQL

Server

70

或更高版本，请使用

SQL

Server

NET

Framework

数据提供程序的

SqlConnection

对象。

要连接到

OLE

DB

数据源，或连接到

Microsoft

SQL

Server

6x

或更低版本，请使用

OLE

DB

NET

Framework

数据提供程序的

OleDbConnection

对象。

5、应该是Adodc1ConnectionString="xxxxxxxxx"

引号中为连接

字符串

，具体的

语法

建议你按F1看MSDN的帮助，很详细。

6、还有问题可以共同探讨，qq369220969

Dim

sqlConnection1

As

SqlClientSqlConnection

　Dim

strConnect

As

String=”data

source=服务器名;initial

catalog=数据库名;user

id=sa;password=;”

sqlConnection1=New

SystemDataSqlClientSqlConnection(strConnect)

　sqlConnection1open

‘打开数据库

sqlConnection1close

‘关闭连接，释放资源

1)连接Sql

Server数据库

Dim

odbcDbConnetion1

As

MicrosoftDataOdbcConnection

　Dim

strConnect

As

Sting=”Driver={SQL

Server};Server=服务器名;Uid=sa;pwd=;Database=

数据库名;”

　odbcDbConnetion1=New

MicrosoftDataOdbcConnection(strConnect)

VB与数据库连接可以使用数据库控件进行,也可以引用ADO对象,数据库控件的使用比较简单,下面我就介绍使用ADO对象进行连接,首先打开"工程-引用",选择其中的Microsoft ActiveX Data Objects 20 Library(20以上版本都可以): \x0d\ACCESS数据库名为"学生mdb"其中有张数据库表名为"表",下面就介绍如何使用代码进行连接到数据库"学生",代码如下: \x0d\Function Connection() As String \x0d\'数据库的连接字符设置 \x0d\Connection = "Provider=MicrosoftJetOLEDB40;Data Source=" & AppPath + "\学生mdb" \x0d\End Function \x0d\数据库"学生mdb"在当前目录下,故使用APPPath \x0d\Private Sub Form_Load() \x0d\Dim mr As New ADODBRecordset \x0d\Dim cnn As New ADODBConnection \x0d\Dim Sql As String \x0d\Sql="select from 表" \x0d\cnnOpen Connection '使用cnn对象打开数据库连接 \x0d\mrOpen Sql, cnn, adOpenKeyset, adLockOptimistic \x0d\'打开数据库记录 \x0d\If mreof then \x0d\msgbox "数据库表为空!" \x0d\else \x0d\msgbox "数据库表不为空!" \x0d\end if \x0d\set mr=nothing \x0d\'关闭记录对象 \x0d\set cnn=nothing \x0d\'关闭连接对象 \x0d\End Sub \x0d\OK,程序到此,已经能成功地访问数据库了,并能打开数据库中的表

以上就是关于vb adodc 怎么用代码实现数据库连接全部的内容，包括:vb adodc 怎么用代码实现数据库连接、VB 如何使用ADODB控件链接SQLServer数据库、vb.net的数据库怎么连接啊等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！