140
runtime error is coming while iam trying to save my file
[DBNETlib]connection open(parse connect params()].invalid connection.
Private Sub SaveApp()
On Error Resume Next
With RS
'Add new Record
.AddNew
' Application Name
.Fields(0).Value = projectid.Text
' Description
If project_Txt.Text <> "" Then
.Fields(1).Value = project_Txt.Text
End If
' File Title
If date_txt.Text <> "" Then
.Fields(2).Value = date_txt.Text
End If
' Arguments
If episodetxt.Text <> "" Then
.Fields(3).Value = episodetxt.Text
End If
If seq_txt.Text <> "" Then
.Fields(4).Value = seq_txt.Text
End If
If scene_txt.Text <> "" Then
.Fields(5).Value = scene_txt.Text
End If
If shot_txt.Text <> "" Then
.Fields(6).Value = shot_txt.Text
End If
If shot_image.Text <> "" Then
.Fields(7).Value = shot_image.Text
End If
If action_txt.Text <> "" Then
.Fields(8).Value = action_txt.Text
End If
If dialogue_txt.Text <> "" Then
.Fields(9).Value = dialogue_txt.Text
End If
If slug_txt.Text <> "" Then
.Fields(10).Value = slug_txt.Text
End If
If camera_txt.Text <> "" Then
.Fields(11).Value = camera_txt.Text
End If
'update recordset
.Update
End With
End Sub
Private Sub Savefile_Click()
CN.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=admin;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, adOpenForwardOnly, adLockOptimistic
RS.AddNew
SaveApp
RS.Update
Set RS = Nothing
Set RS = New Recordset
RS.Close
CN.Close
MsgBox "save Finished !!!", vbInformation
projectid.Text = ""
project_Txt.Text = ""
date_txt.Text = ""
episodetxt.Text = ""
seq_txt.Text = ""
scene_txt.Text = ""
shot_txt.Text = ""
shot_image.Text = ""
action_txt.Text = ""
dialogue_txt.Text = ""
slug_txt.Text = ""
camera_txt.Text = ""
End Sub
help me on this. please
