查询怎么变空白的

linling123 2008-11-01 03:10:54
我怎么一点查询DataGrid1就没有记录显示啊
比如输入001,有这个职工编号的,但是就是没显示,一片空白
帮我看下那出的问题

Dim mycon As New ADODB.Connection
Dim myrs As New ADODB.Recordset

Private Sub Command1_Click()
Set myrs = New ADODB.Recordset
myrs.Open "select * from 员工工资 where 职工编号 like '" & Text1.Text & " '", mycon, 1
Set DataGrid1.DataSource = myrs
DataGrid1.Refresh
End Sub

Private Sub Form_Load()
mycon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\程序设计\人事管理.mdb;Persist Security Info=False"
mycon.Open
Text1.Text = ""
End Sub
...全文
89 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
king06 2008-11-01
  • 打赏
  • 举报
回复

Dim myrs As ADODB.Recordset
Set myrs = New ADODB.Recordset
With myrs
Set .ActiveConnection = gobjCnn
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockBatchOptimistic
.Open "select * from 员工工资 where 职工编号 like '" & Text1.Text & " '"
end with
Set DataGrid1.DataSource = myrs
DataGrid1.Refresh
myrs.close
set myrs = nothing
vbman2003 2008-11-01
  • 打赏
  • 举报
回复
要使用客户端游标:

Set myrs = New ADODB.Recordset
myrs.CursorLocation = adUseClient
myrs.Open "select * from 员工工资 where 职工编号 like '" & Text1.Text & " '", mycon, 1
Set DataGrid1.DataSource = myrs
DataGrid1.Refresh
databing 2008-11-01
  • 打赏
  • 举报
回复
Private Sub Command1_Click()
Adodc1.RecordSource = "select * from 员工工资 where 职工编号 like '" & Text1.Text & " '"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\程序设计\人事管理.mdb;Persist Security Info=False"
Text1.Text = ""
End Sub

LZ这做可以实现。刚做的。

7,785

社区成员

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

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