怎么把combo和数据库查询联系起来？

2003-08-27 01:54:17 74 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

ACCESS中的组合框combo控件使用的一个细节我们在窗体上放置一个combo控件，然后在它的属性面板上，数据标签中的行来源处指定了一个查询“在职教师名单”，保存并运行窗体后，点开combo，看到了有查询出来的教师名单。但我们注意到，窗体打开时，这个combo控件中显示的是空白。必须要点下拉按钮后再选中一个教师的名字，该教师的名称才出现在combo控件中。这并不是我们所希望我。我们希望在窗体打开的时候，这个combo就默认显示教师名单中的第一个名字。查看combo控件的属性面板的数据标签中，有“默认值”这一属性。但这一属性并不能直接帮上忙。因为教师名阅读详情

怎么样在在combo里选择数据项，然后就能查询出其他相关数据项？
怎么设定combo和sql查询语句？

...全文

VN1630A硬件配置指南：手把手教你用CanApe搭建XCP标定工程（附ELF文件配置技巧）本文详细介绍了如何使用VN1630A硬件和CanApe软件搭建XCP标定工程，包括硬件配置、CanApe工程创建、ELF文件处理及XCP协议层配置等关键步骤。特别针对实际项目中常见的错误和细节问题提供解决方案，帮助工程师高效完成ECU参数标定工作。阅读详情

lesfdcp

数据库(包含打印，安装，报表) 1,217 成员 55,949 内容

+ 关注 + 加入社区

切换为时间正序

vv1vv 2003-08-27

打赏
举报

Private Sub Combo1_Click()
Dim adocnn As new adodb.connection
adocnn.open"………………"
adocnn.CursorLocation =adUseClient
dim adors as new adodb.recordset

rs.open "select * from table where ziduan='" & trim(combo1) & "'"
if rs.eof then
msgbox"没有该相记录！"
exit sub
else
set datagrid1.datasouce=adors
end if
End Sub
试试会可以的！！

sbfinger 2003-08-27

打赏
举报

把 rs.Open "student", cn改为rs.open"select * from student",cn试试。

lesfdcp 2003-08-27

打赏
举报

Private Sub Form_Load()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.Open "F:\vb学习\09800308\09800308\studentSelectSystem.mdb"
rs.Open "student", cn
Do While rs.EOF = False
ComboStuId.AddItem rs!stuId
rs.MoveNext
Loop
End Sub

Private Sub ComboStuId_Click()
Dim str As String
str = ComboStuId.Text
Dim cn1 As ADODB.Connection
Dim rs1 As ADODB.Recordset
Dim find_str As String

find_str = "slect * from student where stuId='" + str + "'"

Set cn1 = New ADODB.Connection
cn1.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0"
cn1.Open "F:\vb学习\09800308\09800308\studentSelectSystem.mdb"
Set rs1 = New ADODB.Recordset
rs1.CursorLocation = adUseClient
rs1.Open find_str, cn1, adOpenDynamic

If rs1.EOF And rs1.BOF Then
MsgBox "Invalid stuId", vbOKOnly, "stop!"
Exit Sub
End If

'ComboStuId.Text = rs1!stuId
Text1.Text = rs1!department
Text2.Text = rs1!nativePlace
Text3.Text = rs1!stuName
Text4.Text = rs1!Class
Text5.Text = rs1!polity
cn1.Close
End Sub

总是说没有有效的sql语句！
要不要在Private Sub ComboStuId_Click()
或者在Private Sub cmdOk_Click()
中添加代码？

lihonggen0 2003-08-27

打赏
举报

Rs.CursorLocation = adUseClient
Rs.Open "select * from employees where employeesname='" & Combo1.Text & "'", CN, adOpenDynamic, adLockBatchOptimistic

chao778899 2003-08-27

打赏
举报

Private Sub Combo1_Click()
Dim str As String
str = Combo1.Text
-----
rs.open "select * from table where ziduan='" + str + "'"
----
End Sub

怎么把combo和数据库查询联系起来？

相关推荐