下拉菜单连接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
相关问答：
CREATE TABLE Product(model integer,
maker varchar(20),
CONSTRAINT SAND PRIMARY KEY (model),
CONSTRAINT PANDA FOREIGN KEY (model) REFERENCES PC (model)
ON DELETE CASCADE ......
问题１
我用ADO连接设了用户名密码的数据库
但是我发现我不输入 用户名和密码 都可以连接成功 而且还能把数据读出来
剪了一个名为test数据库 建了一个名为people的表
见了一个 用户名1234 密码1234 的 ......
有一个数据库里只有2W条数据不到，却有500M那么大,怎么回事啊？是ACCESS的数据库。后来我把ACCESS导入到MSSQL中，也占用了500M左右的空间，如果压缩数据库呢？请高手指点
压缩数据库？能做到么...
期待高人指点 我 ......
大家帮下忙了
请教一个SQL查询的问题
比如我现在查询
SELECT * from XS WHERE 专业名='计算机'
查询完成之后我可不可以在上次查询的基础之上在进行相关查询呢？
比如我在查完计算机专业的所有学生之后，想查出� ......
