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()

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

Adodc1RecordSource = "select name from b1 order by name"

Adodc1Refresh

DataGrid1Refresh

End Sub

Private Sub Command1_Click()

Dim mCnnStr As satrin

Dim cCnn As New ADODBConnection

Dim mStr As String

Dim mRst As New ADODBRecordset

'连接SQL数据库

mCnnStr = "UID=sa;PWD=;Driver={SQL Server};Server=SQL服务器名;Database=数据库名;dsn= ,,Connection=adConnectAsync"

cCnnConnectionString = mCnnStr

cCnnOpen

'打开表

mStr = "select from 表名"

mRstOpen mStr, cCnn, adOpenKeyset, adLockReadOnly

If mRstRecordCount > 0 Then

'这里是读出的SQL数据，可用MoveFirst，MoveLast，MoveNext等命令 *** 作数据集

End If

If cCnnState = adostateopen Then cCnnClose: Set cCnn = Nothing

If mRstState = adostateopen Then mRstClose: Set mRst = Nothing

End Sub

=======================================================

不用控件，因为控件编程不灵活，而且效率不高，全用代码，只要在工程——>引用“Microsoft Data Access - ActiveX Data Objects”库就可以了。

VB连接MYSQL数据的方法

博客分类：

VB

VBMySQLSQLServerSQLSocket

第一步：上网>

Dim Conn As New ADODBConnection

Dim Rs As New ADODBRecordset

ConnOpen "provider=MicrosoftJetOLEDB40;Data Source=" & DataPath & ";Jet OLEDB:Database Password='1234'" 'datapath就是数据库的路径及文件名称不如在名字为"W"的机器上"Files"的目录里名字是"Db1mdb" "\\w\Files\Db1mdb",如果数据库没有密码Database Password='dafengkui'可以不要

RsOpen "SELECT FROM 用户档案 where user='" & TUserText & "'", Conn

===========================================

INI文件是配置文件,是用户可以修改的用户接口文件,软件可以读写它,用户也可以用记事本来修改它

DLL文件是链接库文件,是编程生成的用户不可以修改的文件,这是编程工具写出来的

1、打开代码窗口，添加引用：Imports SystemDataSqlClient。

2、输入以下代码：

“Public conn1  As SqlConnection = New SqlConnection _

("server=192168179; Initial Catalog= student; User ID= panqe;PWD=shentai768@")”，vb就已经成功连接sql数据库了。

3、代码详解：声明关键字Public（因为是全局变量，所以用Public 来声明）。

4、连接参数。

5、如果SQL 数据库就在本机，则用以下代码连接：

("server=; Integrated Security=False;Initial Catalog= student; User ID= panqe;PWD=shentai768@")。

6：如果代码太长，影响可读性，可以用空格加"_"后，回车换行。

Microsoft ADO Data Control 60和Microsoft DataGrid Control 60ADODC控件属性设置：1、在ADODC控件上右击，选择ADODC属性2、然后在通用选项卡中选择使用连接字符串，点击生成按钮3、然后选择Microsoft Jet 40 OLE DB Provider，点击下一步4、选择要连接打开的Access数据库文件(你要打开的ACCESS文件)，点击测试连接，提示成功即可5、切换到记录源选项卡，命令类型选择2-adCmdTable，表或存储过程名称选择要打开的表，点击确定。经过以上的步骤设置，ADODC控件虽然具有了“打开”数据库的能力，但它没有“显示”数据的能力，此时我们就要借助DataGrid控件了。DataGrid控件属性设置：设置DataGrid控件的DataSource属性为Adodc1通过以上语句的设置，就将DataGrid控件和Adodc控件绑定在一起了，这样DataGrid才能正常显示Adodc打开数据表的内容。

ADO控件与数据库连接代码如下

Dim

conn

As

New

ADODBConnection

Dim

rs

As

New

ADODBRecordset

Private

Sub

Command1_Click()

'插入数据：

If

rsState

<>

adStateClosed

Then

'检查记录集状态

rsClose

End

If

rsOpen

"insert

into

T_user(name,age)

values('"

&

txtnameText

&

"',"

&

txtage

&

")",

conn,

adOpenDynamic,

adLockBatchOptimistic

If

rsState

<>

adStateClosed

Then

rsClose

End

If

'更新DataGrid1数据

rsOpen

"select

from

T_user",

conn,

adOpenDynamic,

adLockBatchOptimistic

Set

DataGrid1DataSource

=

rs

End

Sub

Private

Sub

Form_Load()

connOpen

"Provider=MicrosoftJetOLEDB40;Data

Source=C:\Documents

and

Settings\hb\桌面\db1mdb;Persist

Security

Info=False"

connCursorLocation

=

adUseClient

'游标放在客户端

rsCursorLocation

=

adUseClient

rsOpen

"select

from

T_user",

conn,

adOpenDynamic,

adLockBatchOptimistic

Set

DataGrid1DataSource

=

rs

End

Sub

Private

Sub

Form_Unload(Cancel

As

Integer)

rsClose

'释放

connClose

Set

rs

=

Nothing

Set

conn

=

Nothing

End

Sub

以上就是关于vb中adodc控件怎样用代码来连接数据库~~~~全部的内容，包括:vb中adodc控件怎样用代码来连接数据库~~~~、vb连接数据库、VB如何连接MYSQL数据库等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！