问大家一个简单的事?

nanyankaoran 2008-01-22 09:01:30
我用ADODC控件和DATAGRID控件查询能用
Private Sub Check1_Click()
If Check1.Value = 1 Then
Adodc1.RecordSource = "select * from tb_stu where 学生姓名 like '" + Text1.Text + "'"
Adodc1.Refresh

Set DataGrid1.DataSource = rs
End If
End Sub
而我用数据对象这样的操作怎么不行
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub Check1_Click()
If Check1.Value = 1 Then
rs.Open "select * from tb_stu where 学生姓名 like '" + Text1.Text + "'", cn, adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = rs
End If
End Sub

Private Sub Form_Load()
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\VB±|μ \± êé′ú \10\283\db_ExpStu.mdb;Persist Security Info=False"
cn.Open
End Sub
...全文
67 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
ZOU_SEAFARER 2008-01-22
  • 打赏
  • 举报
回复
chuifengde 说的对!学习
ZOU_SEAFARER 2008-01-22
  • 打赏
  • 举报
回复

我看看也没有什么不妥的地方,唯一看到的地方就是表格需要刷新以下而已。
如果可行的话,你直接换MSH表格显示,这个肯定是没有问题!
chuifengde 2008-01-22
  • 打赏
  • 举报
回复
if check1.value=1 then
rs.cursorlocation=aduseclient
rs.open ...
...
end if

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧