vb中combo 在线等

来源：百度知道 编辑：UC知道 时间：2024/05/03 06:15:50
combo3直接读取表course中列名为cname的项
这是我连接代码 只需要那一段就可以了。。
Private Sub Combo3_Click()
Combo3.Clear
Dim SQL As String
Dim Rs As New ADODB.Recordset
Dim connectionstring As String
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb;"
conn.Open connectionstring

代码已改,在Command1_Click()事件中需要让rs的指针往下走,要不总显示一个

假设你的数据库在程序的目录下,名称为:abc.mdb
加入以下代码:

如果你用adodb加入以下代码:
******************************
Dim conn As New ADODB.Connection '定义数据库连接对象

'加入一个command按钮
Private Sub Command1_Click()
Set rs = Record("select cname from course", conn)
combo3.clear
rs.movefirst
for i=1 to rs.recordcount
combo3.additem rs("cname")
rs.movenext
next
End Sub

Private Sub form_load()
'打开数据库
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\abc.mdb;", "admin"
End Sub

'获取一个记录集对象的函数
Public Function Record(strRstTemp As String, conn As ADODB.Connection) As ADODB.Recordset
Dim rstTemp As New ADODB.Recordset
rstTemp.ActiveConnection = conn
rstTemp.CursorType = ADODB.CursorTypeEnum