1,453
社区成员
发帖
与我相关
我的任务
分享关于VB中Combo控件获得SQL数据库中某一列全部内容
大家好!我想查询一个数据库中的tbl_Employees中的EmployeeUserName列中所有内容为VB中的Combo控件的List值.该如何操作啊.求代码!!!!多谢大家
...全文
请发表友善的回复…
发表回复
cocoboy12345 2007-11-19
- 打赏
- 举报
select * from tbl_Employees where EmployeeUserName=combo1.text
clear_zero 2007-07-09
- 打赏
- 举报
cmbKisyu.AddItem P_typKiSyuMst(iCnt).szKisyuName 直接添加
sanwasou 2007-07-09
- 打赏
- 举报
P_iKisyuNoCnt=-1
sanwasou 2007-07-09
- 打赏
- 举报
Public Type KISYU_MST
szKisyuName As String
iKisyuNo As Integer
End Type
Public P_typKiSyuMst() As KISYU_MST
With cnnOraADO
szSql = "Select * From s_kisyu_mst where kisyu_no= '" & iKiSyu_No & "'"
Set recOraADO = .Execute(szSql, , adCmdText)
End With
With recOraADO
Do Until .EOF
P_iKisyuNoCnt = P_iKisyuNoCnt + 1
ReDim Preserve P_typKiSyuMst(P_iKisyuNoCnt)
P_typKiSyuMst(P_iKisyuNoCnt).szKisyuName = .Fields(1)
.MoveNext
DoEvents
Loop
End With
Set recOraADO = Nothing
Next inti
For iCnt = 0 To P_iKisyuNoCnt
cmbKisyu.AddItem P_typKiSyuMst(iCnt).szKisyuName
Next iCnt
列子
szKisyuName As String
iKisyuNo As Integer
End Type
Public P_typKiSyuMst() As KISYU_MST
With cnnOraADO
szSql = "Select * From s_kisyu_mst where kisyu_no= '" & iKiSyu_No & "'"
Set recOraADO = .Execute(szSql, , adCmdText)
End With
With recOraADO
Do Until .EOF
P_iKisyuNoCnt = P_iKisyuNoCnt + 1
ReDim Preserve P_typKiSyuMst(P_iKisyuNoCnt)
P_typKiSyuMst(P_iKisyuNoCnt).szKisyuName = .Fields(1)
.MoveNext
DoEvents
Loop
End With
Set recOraADO = Nothing
Next inti
For iCnt = 0 To P_iKisyuNoCnt
cmbKisyu.AddItem P_typKiSyuMst(iCnt).szKisyuName
Next iCnt
列子
violion 2007-07-09
- 打赏
- 举报
具体代码就没了，步骤到有的
先写一段读tbl_Employees的代码， 把EmployeeUserName的内容存在数组里
接着
例如 ：数组P_typKiSyuMst(iCnt).szKisyuName ＝EmployeeUserName的内容
For iCnt = 0 To X(总的纪录条数)
cmbKisyu.AddItem P_typKiSyuMst(iCnt).szKisyuName 直接添加
Next iCnt
先写一段读tbl_Employees的代码， 把EmployeeUserName的内容存在数组里
接着
例如 ：数组P_typKiSyuMst(iCnt).szKisyuName ＝EmployeeUserName的内容
For iCnt = 0 To X(总的纪录条数)
cmbKisyu.AddItem P_typKiSyuMst(iCnt).szKisyuName 直接添加
Next iCnt
