combo 与数据库表字段的绑定问题

[rachelchen407]

使用combo box，想直接关联sql employee表里面的emp_id字段

Private Sub Form_Load()
txtSQL = "select dep_id from employee"
Set mrc = ExecuteSQL(txtSQL, MsgText)
Do While Not mrc.EOF
Combo1.AddItem (mrc.Fields(0))
mrc.MoveNext
End Sub
这么写报错，提示“子程序或函数未定义”，请高手指点下，多谢

[rachelchen407]

[Quote=引用 2 楼 lxq19851204 的回复:]
SQL code

Public Function ExecuteSQL(ByVal pCmd As String, pDCN As ADODB.Connection, Optional pAsync As Boolean = False) As ADODB.Recordset
Dim tmpRs As ADODB.Recordset

Set tmpRs =……
[/Quote]

运行报错“ByRef 参数类型不符”

[lxq19851204]

Private Sub Form_Load()
dim txtSQL as string 
   
  set mrc=new adodb.recordset
  'msgtext=连接数据库的代码
  txtSQL = "select dep_id from employee"
  Set mrc = ExecuteSQL(txtSQL, MsgText)
  Do While Not mrc.EOF
  Combo1.AddItem (mrc.Fields(0))
  mrc.MoveNext
End Sub

[lxq19851204]

Private Sub Form_Load()
dim txtSQL as string 
   
   set mrc=new adodb.recordset
   'msgtext=连接数据库的代码
   txtSQL = "select dep_id from employee"
   Set mrc = ExecuteSQL(txtSQL, MsgText)
   Do While Not mrc.EOF
       Combo1.AddItem (mrc.Fields(0))
       mrc.MoveNext
   loop
End Sub

[lxq19851204]

Private Sub Form_Load()
Dim txtSQL as string 
Dim oRs    as adodb.recordset

    Set oRs = New ADODB.Recordset
    txtSQL = "select dep_id from employee"
    Combo1.Clear
    oRs.Open txtsqlSQL,DCN, adOpenStatic, adLockOptimistic, adCmdText
    If oRs.RecordCount > 0 Then
        For i = 1 To oRs.RecordCount
           Combo1.additem oRs!dep_id
           oRs.MoveNext
        Next
    End If
    oRs.close
    set oRs=nothing
END Sub

[chinaboyzyq]

1)引用ADO 2.5
2)定义mrc
dim mrc as new adodb.recordset
3)查看ExecuteSQL函数是否存在。

[lxq19851204]

Public Function ExecuteSQL(ByVal pCmd As String, pDCN As ADODB.Connection, Optional pAsync As Boolean = False) As ADODB.Recordset
Dim tmpRs       As ADODB.Recordset
    
    Set tmpRs = New ADODB.Recordset
    
    If Not pAsync Then
        tmpRs.Open pCmd, pDCN, adOpenForwardOnly, adLockReadOnly, adCmdText
    Else
        bCompleteExec = False
        tmpRs.Open pCmd, pDCN, adOpenForwardOnly, adLockReadOnly, adAsyncExecute
        Do While Not bCompleteExec
            DoEvents
        Loop
    End If
    
    Set ExecuteSQL = tmpRs
    Set tmpRs = Nothing
    
End Function