文本框根据combo1的当前内容，显示对应信息

vfpbu1 2011-03-19 01:31:42

数据库:中有5个字段：用户名，密码，权限，时间1，时间2
控件：一个combo1控件(显示用户名)，三个文本框控件分别显示权限，时间1，时间2

要求：当选择combo1中的内容时，文本框根据变化时实显示数据库的对应字段内容
下面?????处如何填写代码

Private Sub Combo1_Change()

??????????

End Sub



Private Sub form_load()

Dim xt_gl As New ADODB.Recordset

Dim sql As String

sql = "select * from 系统管理"

xt_gl.Open sql, conn, adOpenKeyset, adLockPessimistic

xt_gl.MoveFirst

If Not xt_gl.EOF Then

   Do While Not xt_gl.EOF

      Combo1.AddItem xt_gl.Fields(0)

      xt_gl.MoveNext

   Loop

   Combo1.ListIndex = 0

End If

Text1.Text=?????

Text2.Text=?????

Text3.Text=?????

xt_gl.Close

End Sub

...全文

347 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

king2233932 2011-03-31

打赏
举报

我试过那代码，但也是txt文本显示不了啊

pingle209 2011-03-20

打赏
举报

都是牛人！

vfpbu1 2011-03-19

打赏
举报

[Quote=引用 1 楼 chinaboyzyq 的回复:]

VB code

Private Sub Combo1_Change()
Dim xt_gl As New ADODB.Recordset
Dim sql As String
sql = "select * from 系统管理"
xt_gl.Open sql, conn, adOpenKeyset, adLockPessimistic

xt_gl.Find "用户名='" & ……
[/Quote]

为什么combo1中的值改变时，text的值没有变化？？？？？

vfpbu1 2011-03-19

打赏
举报

[Quote=引用楼主 vfpbu1 的回复:]
为什么combo1中的值改变时，text的值没有变化？？？？？

qq529633582 2011-03-19

打赏
举报

应该是“实时”，但实时用在这里不恰当。。。

孤独剑_LPZ 2011-03-19

打赏
举报

同意前几楼的，问题很简单，写法上有多样，如
Text1.Text = xt_gl(2)
Text1.Text = xt_gl("权限")
上面2种写法都对，再补充一种吧
Text1.Text = xt_gl!权限

无·法 2011-03-19

打赏
举报

Private Sub Combo1_Change()

Dim xt_gl As New ADODB.Recordset

Dim sql As String

sql = "select * from 系统管理 where 用户名 = '" & Combo1.Text & "'"

xt_gl.Open sql, conn, adOpenKeyset, adLockPessimistic

if xt_gl.recordcount>=0 then

   Text1.Text = xt_gl("权限")

   Text2.Text = xt_gl("时间1")

   Text3.Text = xt_gl("时间2")

end if

xt_gl.Close

End Sub

另外建议在formload的时候将所有资料保存到一个二维数组中，这样每次检索数组就行。当数据库有更新时就更新这个数组的内容，这样既可以做到同步又可以减少数据库的操作次数还可以提高效率。

chinaboyzyq 2011-03-19

打赏
举报

参考一下这个：
http://topic.csdn.net/u/20110318/15/a581fac8-a07c-49e3-bf7e-88444ab4ab28.html?5180

chinaboyzyq 2011-03-19

打赏
举报



Private Sub Combo1_Change()

Dim xt_gl As New ADODB.Recordset

Dim sql As String

sql = "select * from 系统管理"

xt_gl.Open sql, conn, adOpenKeyset, adLockPessimistic



   xt_gl.Find "用户名='" & Combo1.Text & "'"

   Text1.Text = xt_gl(2)

   Text2.Text = xt_gl(3)

   Text3.Text = xt_gl(4)

   xt_gl.Close

End Sub



Private Sub form_load()

Dim xt_gl As New ADODB.Recordset

Dim sql As String

sql = "select * from 系统管理"

xt_gl.Open sql, conn, adOpenKeyset, adLockPessimistic

xt_gl.MoveFirst

If Not xt_gl.EOF Then

   Do While Not xt_gl.EOF

      Combo1.AddItem xt_gl.Fields(0)

      xt_gl.MoveNext

   Loop

   Combo1.ListIndex = 0

End If

Text1.Text = xt_gl(2)

Text2.Text = xt_gl(3)

Text3.Text = xt_gl(4)

xt_gl.Close

End Sub