Public cn As Connection Public rsIssueInfo As New Recordset Set cn = New Connection cn.ConnectionString = "driver={SQL Server};server=t1;datebase=labrary" cn.CursorLocation = adUseClient cn.Open
If cn.State = adStateOpen Then
rsIssueInfo.Open "select * from Issue", cn, adOpenKeyset, adLockPessimistic frmMain.Show
Else MsgBox "数据库连接错误!", vbCritical, "图书馆管理系统" End End If 我的连接是这样的,会不会这里又问题?
请各位帮帮我,时间紧迫啊! rsIssueInfo.Open "select * from Issue", cn, adOpenKeyset, adLockPessimistic Set DataGrid1.DataSource = rsIssueInfo DataGrid1.ReBind Frame2.Left = (Screen.Width - Frame2.Width) / 2 If rsIssueInfo.RecordCount = 0 Then MsgBox "没有借出书的信息!", vbInformation, "借出信息" Call cmdAddNew_Click Else Call display End If 如果这么写。又出现[Mircosoft][ODBC SQL Server Driver][SQL Server]对象名"iSSUE"无效,可是在我明明在数据库中有Issue这个表啊
Public rsIssueInfo As New Recordset
Set cn = New Connection
cn.ConnectionString = "driver={SQL Server};server=t1;datebase=labrary"
cn.CursorLocation = adUseClient
cn.Open
If cn.State = adStateOpen Then
rsIssueInfo.Open "select * from Issue", cn, adOpenKeyset, adLockPessimistic
frmMain.Show
Else
MsgBox "数据库连接错误!", vbCritical, "图书馆管理系统"
End
End If
我的连接是这样的,会不会这里又问题?
rsIssueInfo.Open "select * from Issue", cn, adOpenKeyset, adLockPessimistic
Set DataGrid1.DataSource = rsIssueInfo
DataGrid1.ReBind
Frame2.Left = (Screen.Width - Frame2.Width) / 2
If rsIssueInfo.RecordCount = 0 Then
MsgBox "没有借出书的信息!", vbInformation, "借出信息"
Call cmdAddNew_Click
Else
Call display
End If
如果这么写。又出现[Mircosoft][ODBC SQL Server Driver][SQL Server]对象名"iSSUE"无效,可是在我明明在数据库中有Issue这个表啊