用VB怎样连接数据库中表的字段，使得添加数据时，表里的数据也相应添加不要使用SQL语言

Dim

cn

As

ADODBConnection

Dim

rs

As

ADODBRecordset

Set

cn

=

New

ADODBConnection

Set

rs

=

New

ADODBRecordset

cnOpen

strConn

'strConn是事先定义好的一个数据库连接字符串

rsOpen

"select

from

公司资料",

cn,

adOpenStatic,

adLockPessimistic

'公司资料是表的名称

rsAddNew

'添加新记录命令

rs("公司名称")

=

Text1Text

rs("电话")

=

Text2Text

rs("电话1")

=

Text3Text

rs("传真")

=

Text4Text

rs("传真1")

=

Text5Text

rs("地址")

=

Text6Text

rs("版本")

=

Text7Text

rsUpdate

'数据库更新

rsClose

cnClose

MsgBox

"添加新记录完成!",

vbInformation,

"系统提示"

VB连接MYSQL数据的方法

博客分类：

VB

VBMySQLSQLServerSQLSocket

第一步：上网>

你试试我写的这个代码

在工程->引用->添加ADO对象库引用

Option

Explicit

Dim

conn

As

New

ADODBConnection

Dim

rs

As

New

ADODBRecordset

Dim

cm

As

New

ADODBCommand

Private

Sub

Command1_Click()

rsUpdate

End

Sub

Private

Sub

Command2_Click()

rsAddNew

End

Sub

Private

Sub

Form_Load()

connConnectionString

=

"Provider=MicrosoftJetOLEDB40;Data

Source=C:\Program

Files\Microsoft

Visual

Studio\VB98\BIBLIOMDB;Persist

Security

Info=False"

connOpen

rsOpen

"select

产品ID,产品名称,产品单价,是否新产品,客户ID,****,订购日期

from

MyTable",

conn,

adOpenKeyset,

adLockPessimistic

Text1DataField

=

rsFields(0)Value

Text2DataField

=

rsFields(1)Value

Text3DataField

=

rsFields(2)Value

Text4DataField

=

rsFields(3)Value

Text5DataField

=

rsFields(4)Value

Text6DataField

=

rsFields(5)Value

Text7DataField

=

rsFields(6)Value

End

Sub

Private

Sub

Form_Unload(Cancel

As

Integer)

rsClose

connClose

Set

rs

=

Nothing

Set

conn

=

Nothing

End

Sub

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：如果代码太长，影响可读性，可以用空格加"_"后，回车换行。

以上就是关于用VB怎样连接数据库中表的字段，使得添加数据时，表里的数据也相应添加不要使用SQL语言全部的内容，包括:用VB怎样连接数据库中表的字段，使得添加数据时，表里的数据也相应添加不要使用SQL语言、VB如何连接MYSQL数据库、如何向使用vb向access数据库添加数据等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！