Private Sub DBCombo1_GotFocus()
'Set Rs = DE1.rsWorkName
Ssql = "select 姓名, 編號, 密碼 from 員工 where (姓名<>'系統者') order by 編號"
Set cmd.ActiveConnection = Form7.Conn
cmd.CommandType = adCmdText
cmd.CommandText = Ssql
Set Rs = cmd.Execute(Ssql)
Set DataCombo1.RowSource = cmd.Execute(Ssql)
DataCombo1.RowMember = cmd.Name
  DataCombo1.ListField = ("姓名") '改成CMD.FIELDS("姓名")一樣不行
  DataCombo1.BoundColumn = ("姓名")
End Sub
為什麼RS中有資料存在卻無法連結至DATACOMBO上面
實際上使用ADODC或是DATAENVIRONMENT均可達成上述效果但惟獨使用ADODB不能,理論上來說ADODC與DATAENVIRONMENT均為adodb的運用為何反而無法使用
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(0) 人氣()