下拉菜单连接access，如何使text控件显示对应的字段
我想是下拉菜单显示access数据库的船舶表的船舶名后，text2相应显示船舶表中这条船的吨位。我不知道代码怎么写，写在哪里？麻烦各位了告诉我一声，谢谢各位
Private Sub Form_Load()
bAdd = False
Dim strsql2 As String
Dim rs As New ADODB.Recordset
strsql2 = "select * from [船舶表] order by id"
Set rs = queryext2(strsql2)
i = 0
With Combo1
Do While Not rs.EOF
.AddItem rs("船名")
.ItemData(i) = rs("id")
rs.MoveNext
i = i + 1
Loop
End With
strsql2 = "select * from [货物表] order by id"
Set rs = queryext3(strsql2)
i = 0
With Combo2
Do While Not rs.EOF
.AddItem rs("货物名称")
.ItemData(i) = rs("id")
rs.MoveNext
i = i + 1
Loop
End With
strsql2 = "select * from [航线表] order by id"
Set rs = queryext4(strsql2)
i = 0
With Combo3
Do While Not rs.EOF
.AddItem rs("航线名称")
.ItemData(i) = rs("id")
rs.MoveNext
i = i + 1
Loop
End With
Adodc1.ConnectionString = conn
Adodc1.RecordSource = "select * from[船舶申报表]"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Columns(0).Visible = False
End Sub
假设你的船舶表中有字段"吨位"
VB code
Code highlighting pr
相关问答：
我用Access数据库做了一个图书数据库，里面有一个字段是ISBN，就是ISBN号，但是只的一总分图书写的ISBN号，有的没写，写的那一部分有的ISBN是重复的，能否用SQL语言把重复的过滤掉，但没写ISBN号的图书不能过滤掉，� ......
Dbgrid连接access 显示数据时拖动滚动条死机？怎么解决啊？
机器太差了吧？
是不是你数据量太大了啊
你数据少一些看看还死机吗？
数据很少啊 就一页。
我在BCB6下做过不少 DBGRID+ACCESS ，从来没有遇到 ......
我将一段4000来字的文本赋值给它怎么就出错了,提示运行时错误2176 这个属性的设置值太长?
你是怎样赋值的？
测试了一下，用备注字段给文本框做数据源，没有提示设置值太长,14893字符
引用我将一段4000来字的� ......
问题是这样的,现在有一个工资表,是EXCEL的,我要把它导入ACCESS,因为 要查询每个人的工资,根据不同的编号可以查询到相对的人,
用ASP 怎么将EXCEL导入到ACCESS,而且每月都有不同的表,
引用
其实就是把EXCEL当成数 ......
