关于数据库问题

[xdqasd]

窗口上方是一个cobox,里边对应的值是表中的某个字段的值,一个值对应一个表(表结构都相同).
下方是一些标签和文本框,标签是表中字段名称,文本框则是要显示里边的内容初始为空,现在的问题是combox无论选择哪一个,文本框总显示的是combox第一个值所对应的表的内容.怎么样才能使combox选择不同的值,文本框显示对应的表的内容呢,最好给出完整的代码,vb以前实在没搞过.
另外vb连接数据库用哪个控件,该怎么连,希望是手工方法,而不是程序



十万分感谢

[zq972]

//现在的问题是combox无论选择哪一个,文本框总显示的是combox第一个值所对应的表的内容

把你显示第一个表内容的代码贴出来，可以帮你看看

[xdqasd]

Private Sub Combo1_Click()
If Combo1.List(1) Then
Data1.RecordSource = table1
End If

End Sub

Private Sub Command2_Click()

End Sub

Private Sub DBGrid1_Click()

End Sub



Private Sub Data1_Validate(Action As Integer, Save As Integer)

End Sub
我也是帮别人问的,第一个显示好像也是手工操作,不是代码

[sstlwg]

使用Adodc

然后手动设置 RecordSource ^^

[hui_hui_2007]

用datacombox控件吧。那个是可以绑定的。

[xdqasd]

现在到是可以连上,但combox无论选择哪一个,文本框总显示的是combox第一个值所对应的表的内容

[xdqasd]

楼主意思我没明白。
是这样的Combox控件里边放的是表里的字段一个字段对应一个表
fdata的RecordSource 里边是表名称,现在无论combox里选哪个值,总显示data.recordsource里第一个表的名称

[xdqasd]

楼主意思我没明白。
是这样的Combox控件里边放的是表里的字段一个字段对应一个表
fdata的RecordSource 里边是表名称,现在无论combox里选哪个值,总显示data.recordsource里第一个表的名称的内容

[xdqasd]

Private Sub Combo1_Click()
If Combo1.List(1) Then
'Data1.RecordSource = Data1

Data1.RecordSource =这里应该填什么呢 data1是datacombox控件的名称


End If

End Sub

[hui_hui_2007]

楼主意思我没明白。