Question

求助VB高手，VB数据库问题，怎么把某项显示在text1上?

已知表格是这样的:
姓名 编号 地址
123 100 VB市VB镇VB路
321 001 VB1市VB2镇VB3路
当鼠标点击(123)时,地址就显示在text1上
可以列出代码吗？谢谢。我用的是MSHFlexGrid。数据库是mdb。其中输入代码是这样的：
Private Sub ShowPhoto(rf As ADODB.Field)
Dim Chunk() As Byte
Const ChunkSize As Integer = 2384
Dim DataFile As Integer, Chunks, Fragment As Integer
Dim MediaTemp As String
Dim lngOffset, lngTotalSize As Long
Dim i As Integer
MediaTemp = App.Path & "\picturetemp.tmp"
DataFile = 1
Open MediaTemp For Binary Access Write As DataFile
lngTotalSize = rf.ActualSize
Chunks = lngTotalSize \ ChunkSize
Fragment = lngTotalSize Mod ChunkSize
ReDim Chunk(Fragment)
Chunk() = rf.GetChunk(Fragment)
Put DataFile, , Chunk()
For i = 1 To Chunks
ReDim Chunk(ChunkSize)
Chunk() = rf.GetChunk(ChunkSize)
Put DataFile, , Chunk()
Next i
Close DataFile
Picture1.Picture = LoadPicture(MediaTemp)
Text1.Text = DataFile
Kill MediaTemp
End Sub

Answer 1

这个很简单，关键在于怎么让记录集中的记录与当前MSHFlexGrid中选中的记录同步。如果用datagrid控件根本不用代码，但是MSHFlexGrid控件稍稍有点区别，它不能反作用于adodc，关键代码如下：
Private Sub MSHFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
MSHFlexGrid1.Row = MSHFlexGrid1.MouseRow
MSHFlexGrid1.Col = MSHFlexGrid1.MouseCol
adodc1.Recordset.Move adodc1.Row - 1, 1

End Sub

加上上面代码后adodc中的当前记录就会与MSHFlexGrid1中的记录同步，然后再设置text1的Datasource属性和datafield属性：
set text1.Datasource=adodc1
text1.datafield=地址

追问

adodc1提示变量未定义。定义了又提示错误。麻烦再帮助下

追答

adodc1就是你的adodc控件，改成你定义的名字就行了

追问

你好。我的是ADODB哦。不是adodc。麻烦高手再指教指教

追答

不好意思，我看错了。那你是怎么连接的数据库呢？一般用连接数据库的那个变量就行了。不过具体的我也没试过，你试试将定义为aDODB.Connection的变量替换adodc1行不行

Answer 2

插入一个ADODC控件，将Text1的Datasource属性连接到ADODC控件上即可。
或者使用另外的方式，使用Microsoft ActiveX Data Objects 2.x系列对象，将一个Recordset对象指向你的数据表，将这个recordset对象的地址列指向你的text1控件即可。

追问

可以列出代码吗？谢谢。我用的是MSHFlexGrid。数据库是mdb。其中输入代码是这样的：
字数限制了。请看补充问题。