哪位大哥大姐教教我啊？

Question

呵呵，用ADO吧Dim conn As ADODB.Connection
Dim rsP As ADODB.Recordset
Dim rsC As ADODB.RecordsetPrivate Sub CmPro_Click()
If CmPro.ListIndex <> -1 Then
   Set rsC = New ADODB.Recordset
   rsC.Open "select * from " & CmPro.List(CmPro.ListIndex), conn, adOpenStatic, adLockOptimistic
   If rsC.RecordCount > 0 Then
      CmCity.Clear
      Do Until rsC.EOF
         CmCity.AddItem rsC("城市")
         rsC.MoveNext
      Loop
   Else
      MsgBox CmPro.List(CmPro.ListIndex) & " 中没有相应的城市"
   End If
End If
End SubPrivate Sub Form_Load()
Set conn = New ADODB.Connection
Set rsP = New ADODB.Recordsetconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db1.mdb;Persist Security Info=False"
conn.OpenrsP.Open "select * from province", conn, adOpenStatic, adLockOptimistic
If rsP.RecordCount > 0 Then
   Do Until rsP.EOF
      CmPro.AddItem rsP("省")
      rsP.MoveNext
   Loop
   
   CmPro.Text = CmPro.List(0)End If
End Sub

Answer 1

用DBCombo绑定province表，再用SQL语句指定CITY的DBCombo数据源
 

Answer 2

CmPro_Click()事件中有一点改动，加了Trim
另外ComboBox的Style属性最好改成2-DropDownListDim conn As ADODB.Connection
Dim rsP As ADODB.Recordset
Dim rsC As ADODB.RecordsetPrivate Sub CmPro_Click()
If CmPro.ListIndex <> -1 Then
   Set rsC = New ADODB.Recordset
   rsC.Open "select * from " & Trim(CmPro.List(CmPro.ListIndex)), conn, adOpenStatic, adLockOptimistic
   If rsC.RecordCount > 0 Then
      CmCity.Clear
      Do Until rsC.EOF
         CmCity.AddItem rsC("城市")
         rsC.MoveNext
      Loop
   Else
      MsgBox CmPro.List(CmPro.ListIndex) & " 中没有相应的城市"
   End If
End If
End SubPrivate Sub Form_Load()
Set conn = New ADODB.Connection
Set rsP = New ADODB.Recordsetconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db1.mdb;Persist Security Info=False"
conn.OpenrsP.Open "select * from province", conn, adOpenStatic, adLockOptimistic
If rsP.RecordCount > 0 Then
   Do Until rsP.EOF
      CmPro.AddItem rsP("省")
      rsP.MoveNext
   Loop
   
   CmPro.Text = CmPro.List(0)End If
End Sub

Answer 3

兄弟，多多努力啊。CSDN会帮助你的。你看，这不是解决了么？

Answer 4

我做事情太不认真了。不好意思Dim conn As ADODB.Connection
Dim rsP As ADODB.Recordset
Dim rsC As ADODB.RecordsetPrivate Sub CmPro_Click()
If CmPro.ListIndex <> -1 Then
   Set rsC = New ADODB.Recordset
   rsC.Open "select * from " & Trim(CmPro.List(CmPro.ListIndex)), conn, adOpenStatic, adLockOptimistic
   If rsC.RecordCount > 0 Then
      CmCity.Clear
      Do Until rsC.EOF
         CmCity.AddItem rsC("城市")
         rsC.MoveNext
      Loop
      
      CmCity.Text = CmCity.List(0)
   
   Else
      MsgBox CmPro.List(CmPro.ListIndex) & " 中没有相应的城市"
   End If
End If
End SubPrivate Sub Form_Load()
Set conn = New ADODB.Connection
Set rsP = New ADODB.Recordsetconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db1.mdb;Persist Security Info=False"
conn.OpenrsP.Open "select * from province", conn, adOpenStatic, adLockOptimistic
If rsP.RecordCount > 0 Then
   Do Until rsP.EOF
      CmPro.AddItem rsP("省")
      rsP.MoveNext
   Loop
   
   CmPro.Text = CmPro.List(0)End If
End Sub

Answer 5

Private Sub DBCombo1_Click(Area As Integer)
Dim s As String
s = "SELECT * FROM cai WHERE ComputerName='" & DBCombo1.BoundText & "'"
Data2.RecordSource = s
Data2.Refresh
Data2.UpdateControls
End Sub

Answer 6

Cooly(Lazy)还不认真呀，比我强多了，这是我曾写的一段代码，顺手粘来，差劲了点，不好意思了

Answer 7

还有个问题
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db1.mdb;Persist Security Info=False"
conn.Open
这一句中Data Source=C:\db1.mdb一定要用绝对路径吗？
能不能用相对路径啊？就是和项目放在一起的数据库啊。
不然换个目录又得重新编译哦，好辛苦的。

Answer 8

dim dbPath as string
dbPath=App.path
if right(dbPath,1)<>"\" then
   dbPath=dbPath & "\"
end ifconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbPath & "db1.mdb;Persist Security Info=False"
conn.Open

Answer 9

拷…！！！
完全同意 Cooly(Lazy) 的示例程序。

Answer 10

你不可以使用datacombo么？直接绑定就可以啦，那不简单的多？