下拉菜单连接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号的图书不能过滤掉，� ......
ACCESS数据库中有一个tablename表，设计如下
编号,书名,作者,出版时间,出版社,ISBN,目录,简介
其中除“编号”为自动编号外，其它都为“备注”
其中"编号"维一，在“ISBN”中有的为空值， ......
哪里出错了，输出这样的结果？？
<%@ Page Language="VB" AutoEventWireup="false" aspcompat="true" CodeFile="Default.aspx.vb" Inherits="_Default" %&g ......
我机子里面没有ACCESS,请问在不重装系统的情况下该如何把它装上,之前我试装过其它版本的SP3 OFFICE,但还是装不上,
请问有什么好办法吗?
安装OFFICE ，选择安装ACCESS就可以呀 。
引用
安装OFFICE ，选择安装 ......
有一个数据库里只有2W条数据不到，却有500M那么大,怎么回事啊？是ACCESS的数据库。后来我把ACCESS导入到MSSQL中，也占用了500M左右的空间，如果压缩数据库呢？请高手指点
压缩数据库？能做到么...
期待高人指点 我 ......
