problem in connection

[indhu]

giving error as [Microsoft][ODBC driver manager] data source name not found and no default driver specified.

Private Sub Savefile_Click()

CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Vb_image\Storyboard\storyboard.mdb;"


Set CN = New ADODB.Connection
Set RS = New ADODB.Recordset
CN.CursorLocation = adUseServer
CN.Open "storyboard.mdb"
Dim strmsacc As String
strmsacc = "SELECT * FROM story where projectId = '9999'"
RS.Open strmsacc, CN, adOpenDynamic, adLockOptimistic

RS.AddNew
SaveApp
RS.Update
Set RS = Nothing
Set RS = New Recordset
RS.Close
CN.Close

end sub

help me on this

[willakawill]

giving error as [Microsoft][ODBC driver manager] data source name not found and no default driver specified.

Private Sub Savefile_Click()

CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Vb_image\Storyboard\storyboard.mdb;"


Set CN = New ADODB.Connection
Set RS = New ADODB.Recordset
CN.CursorLocation = adUseServer
CN.Open "storyboard.mdb"
Dim strmsacc As String
strmsacc = "SELECT * FROM story where projectId = '9999'"
RS.Open strmsacc, CN, adOpenDynamic, adLockOptimistic

RS.AddNew
SaveApp
RS.Update
Set RS = Nothing
Set RS = New Recordset
RS.Close
CN.Close

end sub

help me on this

Hi, you are opening the connection twice. Leave out the second one
CN.Open "storyboard.mdb"
and it should be fine

[indhu]

Hi, you are opening the connection twice. Leave out the second one
CN.Open "storyboard.mdb"
and it should be fine

If i remove the second statement.

runtime error 3709
this connection cannot be used to perform this operation. It is either closed or invalid in this context.

option explicit

Dim CN As New ADODB.Connection
Dim RS As ADODB.Recordset

then save command follows.

help me out in this yeah

[willakawill]

If i remove the second statement.

runtime error 3709
this connection cannot be used to perform this operation. It is either closed or invalid in this context.

option explicit

Dim CN As New ADODB.Connection
Dim RS As ADODB.Recordset

then save command follows.

help me out in this yeah

This part:

CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Vb_image\Storyboard\storyboard.mdb;"
 
 
Set CN = New ADODB.Connection
Set RS = New ADODB.Recordset
 

should be changed to:

Set CN = New ADODB.Connection
Set RS = New ADODB.Recordset
 
CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data " _
   & "Source=E:\Vb_image\Storyboard\storyboard.mdb;"
 
 

[indhu]

This part:

CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Vb_image\Storyboard\storyboard.mdb;"
 
 
Set CN = New ADODB.Connection
Set RS = New ADODB.Recordset
 

should be changed to:

Set CN = New ADODB.Connection
Set RS = New ADODB.Recordset
 
CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data " _
   & "Source=E:\Vb_image\Storyboard\storyboard.mdb;"
 
 

hi its working but showing error as runtime error 3704. operation is not allowed when the object is closed. but the records are saved to backend. can u just tell me why this error is coming.


Set CN = New ADODB.Connection
Set RS = New ADODB.Recordset

CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data " _
& "Source=E:\Vb_image\Storyboard\storyboard.mdb; "


Dim strmsacc As String
strmsacc = "SELECT * FROM story where projectId = '9999'"
RS.Open strmsacc, CN, adOpenDynamic, adLockOptimistic

RS.AddNew
SaveApp
RS.Update

Set RS = Nothing
Set RS = New Recordset
RS.Close error is coming here.
CN.Close

thank u

[willakawill]

hi its working but showing error as runtime error 3704. operation is not allowed when the object is closed. but the records are saved to backend. can u just tell me why this error is coming.


Set CN = New ADODB.Connection
Set RS = New ADODB.Recordset

CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data " _
& "Source=E:\Vb_image\Storyboard\storyboard.mdb; "


Dim strmsacc As String
strmsacc = "SELECT * FROM story where projectId = '9999'"
RS.Open strmsacc, CN, adOpenDynamic, adLockOptimistic

RS.AddNew
SaveApp
RS.Update

Set RS = Nothing
Set RS = New Recordset
RS.Close error is coming here.
CN.Close

thank u

When a recordset is open
RS.Open
you can close it with
RS.Close
Otherwise you will get an error. So tidy up at the end of your process with this

RS.Close
Set RS = Nothing
CN.Close
Set CN = Nothing