| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 662 人关注过本帖
标题:datagrid
只看楼主 加入收藏
in羊羊
Rank: 1
等 级:新手上路
帖 子:144
专家分:0
注 册:2005-4-17
收藏
 问题点数:0 回复次数:4 
datagrid

Dim cnn As New ADODB.Connection Dim rs As New ADODB.Recordset

Private Sub Command1_Click() cnn.Open "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=D:\Program Files\Microsoft Visual Studio\VB98\stusys.mdb" rs.CursorLocation = adUseClient rs.Open "select sno ,sname,begintime,endtime from info where sno='" & Text1.Text & "'", cnn, 1, 3 If rs.EOF = False Then

Set DataGrid1.DataSource = rs DataGrid1.Refresh Text1.Text = "" Else MsgBox "该用户不存在!请重新输入!" End If End Sub

form上有datagride和一个输入框,当输入一个sno时可以在表中显示结果,但是要输入下一个sno时就提示对象打开时不允许操作! 我是哪里 错啦? 而且我还想实现的就是,当输入下一个学号时,表中的数据为空

搜索更多相关主题的帖子: datagrid 
2005-05-27 23:30
酒干倘卖无
Rank: 1
等 级:新手上路
帖 子:25
专家分:0
注 册:2005-5-1
收藏
得分:0 
奇快,我的就没有问题,怎么试你的也没有问题

'查找记录
'On Error Resume Next
Dim cnn3 As ADODB.Connection
Dim rs3 As ADODB.Recordset
Dim Str, Sjk As String
Set cnn3 = New ADODB.Connection
Set rs3 = New ADODB.Recordset
rs3.CursorLocation = adUseClient
Str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\WXSJK\txwx.mdb;Persist Security Info=True"
Sjk = "select * from 客户 where ( 客户." & Combo301.Text & " =  '" + Text301.Text + "')"
cnn3.Open Str
rs3.Open Sjk, cnn3, adOpenStatic, adLockReadOnly
'rs3.Open Sjk, cnn3, adOpenDynamic, adLockPessimistic
Set DataGrid301.DataSource = rs3
'DataGrid301.Refresh
If rs3.RecordCount = 0 Then
MsgBox "无此相关记录!", vbExclamation, "提示信息"
Text301.SetFocus
Else:
Text311.SetFocus
End If

[此贴子已经被作者于2005-5-28 1:12:34编辑过]



2005-05-28 01:06
loveve
Rank: 4
等 级:业余侠客
威 望:1
帖 子:452
专家分:213
注 册:2005-4-11
收藏
得分:0 
在最后加一个
if rs.open then rs.close
试试

五月的雪
2005-05-28 12:36
in羊羊
Rank: 1
等 级:新手上路
帖 子:144
专家分:0
注 册:2005-4-17
收藏
得分:0 
我加了那句话提示:缺少函数或变量
2005-05-28 16:30
loveve
Rank: 4
等 级:业余侠客
威 望:1
帖 子:452
专家分:213
注 册:2005-4-11
收藏
得分:0 
我写错了,应该是
If rs.State = adStateOpen Then
                rs.Close
 End If

五月的雪
2005-05-30 18:56
快速回复:datagrid
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.047970 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved