How do I fix this error I get. "Run - time 3709"

Question

1.00/5 (1 vote)

See more:

VB

Button Code:

Private Sub cmdnew_Click()
no
clear
Dim rs As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset
rs.Open "tbltrans", con, adOpenDynamic, adLockPessimistic 'This is the line where I get the error.

rs.AddNew

rs!transid = txttransid.Text

rs.Update
lbltotal.Caption = 0
txtitemcode.SetFocus
txtpaid.Text = ""
txtchange.Text = ""
cmdadd.Enabled = True
cmdnew.Enabled = False
cmddelete.Enabled = True
cmdedit.Enabled = True
cmdcompute.Enabled = True
End Sub

Module Code: 

Global con As New ADODB.Connection
Sub main()
On Error GoTo err
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\pos.mdb;Persist Security Info=False;Jet OLEDB:Database"
frmmain.Show
Exit Sub
err:
MsgBox ("Could not find database")
End Sub

What I have tried:

When I removed the frmLogin , frmSplash and frmMenu the error is gone and I can successfully start a new transaction.

Posted 10-Oct-16 5:33am

Member 12785890

Updated 10-Oct-16 6:08am

Add a Solution

Comments

[no name] 10-Oct-16 11:40am

Fix your connection string.

ZurdoDev 10-Oct-16 11:40am

There should be an error message along with that error number. What is the full error?

F-ES Sitecore 10-Oct-16 11:50am

"The connection cannot be used to perform this operation. It is either closed or invalid in this context."

ZurdoDev 10-Oct-16 11:53am

That was one of the options I saw from google.

In this case, it seems pretty clear. con is not ready to go.

1 solution

Add a Solution

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

OriginalGriff · Answer 1 · 2016-10-10T06:08:00

If you don't understand an error message, google it: run - time 3709 vb6 - Google Search[^] and following any of the links will complete the message and probably explain what it means:

VB6 run-time error 3709 the connection cannot be used to perform the operation-it is either closed or invalid

So look at your connection using the debugger and find out exactly what teh connection command works out as.
Then check the file exists in that folder (and it shouldn't be there, that will fail in production even if you get it working in development as the Program Files folder is write protected).

How do I fix this error I get. "Run - time 3709"

1 solution

Solution 1

Add your solution here

Preview 0

How do I fix this error I get. "Run - time 3709"

1 solution

Solution 1

Add your solution here

Preview 0

Existing Members

...or Join us