combo1选择显示数据库,帮帮忙!

Question

access数据库,4个数据表.
datagrid1显示数据记录
combox1  style属性为2-dropdown (这行可忽略)当我在combox1列表选择某一项"数据表",就把所选择的数据表的记录显示在datagrid1控件上.代码该怎样写?..今晚等答案!,谢谢

Answer 1

晕，你这是要别人做题哈
combox有click和change事件，根据这两个事件，然后查表的数据

Answer 2

Private Sub Combo1_Click()
  curConnection="Driver={Microsoft Access Driver(*.mdb)};DBQ=数据文件名.mdb;"
  if Combo1.Text="表1" then strSQL="select * from 表1"
  if Combo1.Text="表2" then strSQL="select * from 表2"
  if Combo1.Text="表3" then strSQL="select * from 表3"
  if Combo1.Text="表4" then strSQL="select * from 表4"
  rs.Open strSQL, curConnection, adOpenStatic, adLockReadOnly
  Set DataGrid1.DataSource = rs
  rs.Close
End Sub