VB连接ACCESS数据库（1.mdb）有表tb，表内分别有ID,姓名，手机，备注； 实现：如图按钮下说明。求代码

添加一个DATA控件在窗体上，设置器可见属性为不可见,将上述4个文本框与之绑定

sub cmd1_click()

data1databaserecordsetadd

data1databaserecordsetfield"id"=text1text

data1databaserecordsetfield"姓名"=text2text

data1databaserecordsetfield"手机"=text3text

data1databaserecordsetfield"备注"=text4text

data1databaseupdata

end sub

sub cmd2_click()

data1databaserecordsetmovefirst

do while data1databaserecordseteof=flase

if data1databaserecordsetfield"id"=text5text then

data1databaserefresh

end if

exit sub

loop

end sub

VB中打开数据库的方法有很多，给你一个用ADO打开数据库的方法：首先在“工程”中引用"Microsoft Activex Data Objects 28 Library"'安装Offices后就会有的。Dim DB As Connection

Dim rs As Recordset Private Sub Command1_Click()

Set DB = New ADODBConnection

Set rs = New ADODBRecordset

DBConnectionString = "PROVIDER=MicrosoftJetOLEDB40;Data Source=" & AppPath & "\数据库名mdb;jet oledb:database password=123456"

DBOpen

rsOpen "select from 表名", DB, adOpenStatic, adLockReadOnly

rsClose注意：1在“工程”中引用"Microsoft Activex Data Objects 28 Library" 2代码写好后先保存，然把准备好的Access数据库放到代码保存的文件夹下。 3"select from 表名"，是打开数据库中叫做“表名”的一个表中全部数据。 可以用Msgbox rsFields(1)Value来调出表中的第一个值

dim

dbConn

As

ADODBConnection

'定义一个ADODB连接

dim

MenuRs

As

ADODBRecordset

'定义Recordset对象

dim

WordRs

As

ADODBRecordset

Function

Conn2DB(byval

dbname

as

string)

As

Boolean

'数据库连函数，dbname为数据库文件的绝对路径

Dim

connStr

As

String

'

Access连接字符串

conStr

=

"Provider=MicrosoftJetOLEDB40;Data

Source="

&

dbName

&

";Persist

Security

Info=False;Jet

OLEDB:Database

Password=abcdef"

Set

dbConn

=

New

ADODBConnection

'定义一个ADODB连接对象

If

dbConnState

<>

adStateOpen

Then

'判断ADODB连接是否打开

dbConnOpen

conStr

'如果不是打开状态

就打开连接

End

If

Conn2DB

=

True

End

Function

Function

CloseDb()

As

Boolean

If

dbConnState

=

adStateOpen

Then

dbConnClose:

Set

dbConn

=

Nothing

End

If

End

Function

Private

Sub

Form_Load()

dim

dbname

as

string

dbname="D:\dbmdb"

‘数据库文件路径

if

Conn2DB(dbname)=true

then

msgbox

"连接数据库成功!"

CloseDb

end

if

End

sub

以上就是关于VB连接ACCESS数据库（1.mdb）有表tb，表内分别有ID,姓名，手机，备注； 实现：如图按钮下说明。求代码全部的内容，包括:VB连接ACCESS数据库（1.mdb）有表tb，表内分别有ID,姓名，手机，备注； 实现：如图按钮下说明。求代码、VB如何打开MDB数据库中的一个表、怎么如何用VB软件连接数据库等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！