UC知道VB 高手请帮帮我这只菜鸟~⊙﹏⊙b汗
来源：百度知道 编辑：UC知道 时间：2024/06/21 17:34:46
我想弄一个数据库把大量的资料统一存起来。
用一个ListBox控件显示数据库里面的“data”这个表里的“标题”这个字段里的所有记录（例如：这个字段里有01、02、03、04四个记录，然后在ListBox这个控件里面显示这四个记录出来。）
然后当我单击（双击也没所谓）“02”这个记录时，在Text1这个控件里显示出标题为“02”的记录的内容。
那位高手会啊？我没有分，只能给这么多了~⊙﹏⊙b汗
用一个ListBox控件显示数据库里面的“data”这个表里的“标题”这个字段里的所有记录（例如：这个字段里有01、02、03、04四个记录，然后在ListBox这个控件里面显示这四个记录出来。）
然后当我单击（双击也没所谓）“02”这个记录时，在Text1这个控件里显示出标题为“02”的记录的内容。
那位高手会啊？我没有分，只能给这么多了~⊙﹏⊙b汗
Public str As String
Public i As Integer
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Public Sub Form_Load()
conn.ConnectionString = "" '引号内为连接数据库的字符串
conn.ConnectionTimeout = 30
conn.open
str = "select 标题 from data"
rs.open str, conn, adOpenStatic, adLockReadOnly
If Not rs.EOF And Not rs.BOF Then
For i = 0 To rs.RecordCount - 1
List1.AddItem rs.Fields.Item(0)
rs.MoveNext
Next i
End If
rs.Close
End Sub
Private Sub List1_Click()
str = "select * from data where 标题='" & List1.Text & "'"
rs.open str, conn, adOpenStatic, adLockReadOnly
Text1.Text = ""
For i = 0 To rs.Fields.Count - 1
Text1.Text = Text1.Text & " " & rs.Fields.Item(i)
Next i
rs.Close
End Sub
在我电脑上试过了 可以用
Dim cn As Object, rst As Object
Set cn = CreateObject("ADODB.Connection&q