VB 读取ACCESS数据库问题?将access某个字段的数据读取到textbox里面,要注释好! 回答好,我追分

我的数据库表名是ID,三个字段:iduidpassword12566522456789...........当我的text1是id时,,按下command1,,text2... 我的数据库表名是ID,三个字段:
id uid password
1 256 652
2 456 789
... .... ....
当我的text1是id时,,按下command1,,text2.text等于uid,
,text3.text等于password,,以此类推,,
注释多点,我笨。回答好,,我追分
展开
 我来答
沙慧月03
推荐于2016-11-04 · TA获得超过2157个赞
知道大有可为答主
回答量:2717
采纳率:100%
帮助的人:3612万
展开全部
假设数据库名为aa。mdb
Dim adocn As New ADODB.Connection

Private Sub Command1_Click()
If Text1.Text = "" Then

Else
Dim rs As New ADODB.Recordset
Dim strSql As String
strSql = "select * from ID where id=" & Trim(Text1.Text)
adocn.Open
rs.Open strSql, adocn, 3, 3
If rs.EOF And rs.BOF Then
Text2.Text = ""
Text3.Text = ""

Set rs = Nothing
adocn.Close
MsgBox "没有查询到符合您要求的信息!", vbCritical + vbOKOnly, "信息"
Exit Sub
Else
Text2.Text = rs.Fields("uid")
Text3.Text = rs.Fields("password")

Set rs = Nothing
adocn.Close
End If

End If
End Sub

Private Sub Form_Load()
adocn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\aa.mdb;Persist Security Info=False"
End Sub
帐号已注销
2011-01-25 · TA获得超过1809个赞
知道大有可为答主
回答量:1971
采纳率:0%
帮助的人:2349万
展开全部
'工程引用ado2.0
Dim adoPrimaryRS As Recordset ‘定义记录集
Dim db As Connection 定义ado连接

Private Sub Command1_Click()
dbpath = "你的数据库文件"
Set db = New Connection
db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" & dbpath & ";" ‘打开连接
Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open "select * from id where [id]=" & text1.Text, db, adOpenStatic, adLockOptimistic ’根据text1的内容生成记录集
If adoPrimaryRS.RecordCount > 0 Then ‘如果记录数大于零
text2.Text = adoPrimaryRS.Fields(1).Value ’ text2中显示第二个字段
text3.Text = adoPrimaryRS.Fields(2).Value ’ text3中显示第三个字段
End If
'以下关闭连接与记录集
adoPrimaryRS.Close
db.Close
Set adoPrimaryRS = Nothing
Set db = Nothing

End Sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
小古而倾乐29
2011-01-26 · TA获得超过1724个赞
知道小有建树答主
回答量:1614
采纳率:0%
帮助的人:308万
展开全部
新建一个工程,在窗体上添加您所需要的控件,
点“工程”菜单——》“引用”,选择Micosoft ActiveX Date objects 2.7 library

在Access中建立数据库

这里我假设你的数据库叫“费率”=,只有这一个表。

填写代码如下:

Option Explicit

Private cnnMain As New ADODB.Connection

Private Sub Combo1_Click()

Dim rs As New ADODB.Recordset

If Combo1.Text <> "" Then

rs.Open "select 出保费 from 费率 where 车型='" & Combo1.Text & "'", cnnMain, adOpenKeyset, adLockReadOnly

If rs.RecordCount > 0 Then

Text1.Text = rs!出保费 & ""

Else
Text1.Text = ""

End If

Else

Text1.Text = ""

End If

Set rs = Nothing

End Sub

Private Sub Form_Load()

With Combo1

.Style = 2

End With

Call OpenConnect

call ListType

End Sub
'列出车型
Private Sub ListType()

Dim i As Long

Dim rs As New ADODB.Recordset

With rs

.Open "select distinct 车型 from 费率", cnnMain, adOpenKeyset, adLockReadOnly

Combo1.Clear

For i = 1 To .RecordCount

Combo1.AddItem rs!车型 & ""

.MoveNext

Next i

End With

Set rs = Nothing
End Sub

Private Sub OpenConnect()

With cnnMain

If .State <> adStateClosed Then .Close

.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & 您的Access数据库文件路径 & ";Persist Security Info=False"

.Open

End With

End Sub

这样够详细了吧?
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式