下拉菜单连接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
相关问答：
最近学习asp，当练习到连接数据库的时候，频频出错，可就是不知道错在怎么地方，请高手帮忙看看！！谢谢！
包含文件xx.asp、xxsave.asp、conn.asp以及student1.mdb和表xxgl……
xx.asp为：
<html>
<hea ......
有一个数据库里只有2W条数据不到，却有500M那么大,怎么回事啊？是ACCESS的数据库。后来我把ACCESS导入到MSSQL中，也占用了500M左右的空间，如果压缩数据库呢？请高手指点
压缩数据库？能做到么...
期待高人指点 我 ......
各位高手好，麻烦帮我看下这个数据库连接问题：
做了一个BBS但是数据库就是连接不上。错误代码如下
HTTP Status 500 -
------------------------------------------------------------------------------- ......
大家帮下忙了
请教一个SQL查询的问题
比如我现在查询
SELECT * from XS WHERE 专业名='计算机'
查询完成之后我可不可以在上次查询的基础之上在进行相关查询呢？
比如我在查完计算机专业的所有学生之后，想查出� ......
