Question

我在VB 6.0中编写BASIC代码。我正在创建一个数据库，我遇到了这个问题。我的保存按钮。当我运行它并单击“保存”按钮时，它会显示

“运行时错误'3709'：连接不能用于执行此操作操作。在此上下文中它是关闭的或无效的“

这是我在保存按钮上的代码

Private Sub Command1_Click()
If rs.State = 1 Then rs.Close
rs.Open "SELECT *FROM Table1 WHERE FirstName = '" & Text1.Text & "' AND LastName = '" & Text2.Text & "'", db
If rs.RecordCount <> 0 Then
MsgBox "RECORD EXISTS"
Else
If rs.State = 1 Then rs.Close
rs.Open "SELECT *FROM Table1", rs
rs.AddNew
rs!FirstName = Text1.Text
rs!LastName = Text2.Text
rs.Update
MsgBox "SAVED"
Text1.Text = ""
Text2.Text = ""
End If
End Sub

这是我在模块中的代码

Dim Text1, Text2 As String
Public db As New ADODB.Connection
Public rs As New ADODB.Recordset
Public Sub Main()
Set db = New ADODB.Connection
db.ConnectionString = "Provider = Microsoft.JET.OLEDB.4.0; " & " Data Source = " & App.Path & "\Database1.mdb"
db.Open
rs.LockType = adLockOptimistic
rs.CursorLocation = adUseClient
rs.CursorType = adOpenStatic
Form3.Show
End Sub

这是突出显示的代码

rs.Open "SELECT *FROM Table1 WHERE FirstName = '" & Text1.Text & "' AND LastName = '" & Text2.Text & "'", db

Answer 1

使项目启动对象在项目属性中为Sub Main。

转到项目菜单 - ＆gt;（您的项目名称）属性。在“常规”选项卡中，将启动对象更改为“Sub Main”。

VB 6.0运行时错误'3709'：连接不能用于执行此操作。在此上下文中，它已关闭或无效

1 个答案: