UC知道VB记录问题
来源：百度知道 编辑：UC知道 时间：2024/05/11 21:18:07
If Option1.Value = True Then '限定输入内容
Call DB
conn.CursorLocation = adUseClient
Set Rst = conn.Execute("select * from BookInfo where BookNo='" + Trim(Text1.Text) + "'")
If Trim(Me.Text1.Text) = "" Or Len(Trim(Me.Text1.Text)) > 20 Then
MsgBox "未输入图书编号或输入过长！"
Text1.SetFocus
ElseIf Rst.EOF = True Then
MsgBox "图书不存在，请重新输入！"
Text1.SetFocus
Else: querybook.Height = 7620
Set DataGrid1.DataSource = conn.Execute("select BookNo as 图书编号,BookName as 图书名称,Author as 作者,Publisher as 出版社,Price as 图书价钱,Status as 图书状态,Description as 备注 from BookInfo where BookNo='" + Trim(Text1.Text) + "'")
End If
endif
Public Function DB()
'连接数据库
conn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Init
Call DB
conn.CursorLocation = adUseClient
Set Rst = conn.Execute("select * from BookInfo where BookNo='" + Trim(Text1.Text) + "'")
If Trim(Me.Text1.Text) = "" Or Len(Trim(Me.Text1.Text)) > 20 Then
MsgBox "未输入图书编号或输入过长！"
Text1.SetFocus
ElseIf Rst.EOF = True Then
MsgBox "图书不存在，请重新输入！"
Text1.SetFocus
Else: querybook.Height = 7620
Set DataGrid1.DataSource = conn.Execute("select BookNo as 图书编号,BookName as 图书名称,Author as 作者,Publisher as 出版社,Price as 图书价钱,Status as 图书状态,Description as 备注 from BookInfo where BookNo='" + Trim(Text1.Text) + "'")
End If
endif
Public Function DB()
'连接数据库
conn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Init
CONN.close这个就是关闭数据库,数据库都关闭了,datagrid就不能显示数据了.datagrid是绑定到conn上的啊.
什么什么啊?说清楚点哦,是"对象打开时，不允许操作" 吧?
那在执行显示命令的开始部分放上CONN.CLOSE