error:An unhandled exception of type 'System.Data.OleDb.OleDbException' occurred in system.data.dll

************* Edited by moderator Adec ***************

Inserted missing < code></ code> tags. Always include such
tags when including code in your postings. Don't force the
moderators to do this for you. Many readers disregard
postings without the code tags.
**************************************************

the error "An unhandled exception of type 'System.Data.OleDb.OleDbException' occurred in system.data.dll " occured in the line CONm.open()
the code is below:

CONM.ConnectionString = "Provider=""MSDAORA.1"";User ID=interman;Password=interman;data source=interman.cslab.indstate.edu;persist security info=False"
CONM.Open()
SCMDM.Connection = CONM
SCMDM.CommandText = "SELECT * FROM EVENT_MASTER"
DAM.SelectCommand = SCMDM
DAM.Fill(DSM, "EVENT_MASTER")
TextBox1.DataBindings.Add("Text", DSM.Tables("EVENT_MASTER"), "EVTID")
TextBox2.DataBindings.Add("Text", DSM.Tables("EVENT_MASTER"), "EVTNAME")
TextBox3.DataBindings.Add("Text", DSM.Tables("EVENT_MASTER"), "VENUE")
TextBox4.DataBindings.Add("Text", DSM.Tables("EVENT_MASTER"), "CURDATE")
TextBox5.DataBindings.Add("Text", DSM.Tables("EVENT_MASTER"), "ADDRESS")
TextBox6.DataBindings.Add("Text", DSM.Tables("EVENT_MASTER"), "LOCATION")
TextBox7.DataBindings.Add("Text", DSM.Tables("EVENT_MASTER"), "CITY")
TextBox8.DataBindings.Add("Text", DSM.Tables("EVENT_MASTER"), "PHNO")
CMM = Me.BindingContext(DSM.Tables("EVENT_MASTER"))
CBM = New OleDbCommandBuilder(DAM)
'DETAILS ABOUT EVENT_DESC TABLE
SCMDD.Connection = CONM
SCMDD.CommandText = "SELECT * FROM EVENT_DESC"
DAD.SelectCommand = SCMDD
DAD.Fill(DSD, "EVENT_DESC")
TextBox16.DataBindings.Add("Text", DSD.Tables("EVENT_DESC"), "EVTID")
TextBox9.DataBindings.Add("Text", DSD.Tables("EVENT_DESC"), "EVTDESC")
TextBox10.DataBindings.Add("Text", DSD.Tables("EVENT_DESC"), "EXEC_ID")

CMD = Me.BindingContext(DSD.Tables("EVENT_DESC"))
CBD = New OleDbCommandBuilder(DAD)
'DETAILS ABOUT EVENT_FEEDBACK TABLE
SCMDF.Connection = CONM
SCMDF.CommandText = "SELECT * FROM EVENT_FEEDBACK"
DAF.SelectCommand = SCMDF
DAF.Fill(DSF, "EVENT_FEEDBACK")
TextBox17.DataBindings.Add("Text", DSF.Tables("EVENT_FEEDBACK"), "EVTID")
TextBox11.DataBindings.Add("Text", DSF.Tables("EVENT_FEEDBACK"), "F_NAME")
TextBox12.DataBindings.Add("Text", DSF.Tables("EVENT_FEEDBACK"), "FEEDBACK")
TextBox13.DataBindings.Add("Text", DSF.Tables("EVENT_FEEDBACK"), "MAILID")
TextBox14.DataBindings.Add("Text", DSF.Tables("EVENT_FEEDBACK"), "CONNO")
TextBox15.DataBindings.Add("Text", DSF.Tables("EVENT_FEEDBACK"), "ADDRESS")
CMF = Me.BindingContext(DSF.Tables("EVENT_FEEDBACK"))
CBF = New OleDbCommandBuilder(DAF)

'DETAILS ABOUT MEETING_MASTER TABLE
SCMDMM.Connection = CONM
SCMDMM.CommandText = "SELECT * FROM MEETING_MASTER"
DAMM.SelectCommand = SCMDMM
DAMM.Fill(DSMM, "MEETING_MASTER")
TextBox18.DataBindings.Add("Text", DSMM.Tables("MEETING_MASTER"), "MEETINGID")
TextBox19.DataBindings.Add("Text", DSMM.Tables("MEETING_MASTER"), "MEETINGDESC")
TextBox20.DataBindings.Add("Text", DSMM.Tables("MEETING_MASTER"), "CURDATE")
TextBox21.DataBindings.Add("Text", DSMM.Tables("MEETING_MASTER"), "TIME")
TextBox22.DataBindings.Add("Text", DSMM.Tables("MEETING_MASTER"), "LOCATION")
TextBox23.DataBindings.Add("Text", DSMM.Tables("MEETING_MASTER"), "ADDRESS")
TextBox24.DataBindings.Add("Text", DSMM.Tables("MEETING_MASTER"), "CITY")
TextBox25.DataBindings.Add("Text", DSMM.Tables("MEETING_MASTER"), "PHNO")
TextBox26.DataBindings.Add("Text", DSMM.Tables("MEETING_MASTER"), "STATE")
CMMM = Me.BindingContext(DSMM.Tables("MEETING_MASTER"))
CBMM = New OleDbCommandBuilder(DAMM)
'DETAILS ABOUT MEETING_DESC TABLE
SCMDMD.Connection = CONM
SCMDMD.CommandText = "SELECT * FROM MEETING_DESC"
DAMD.SelectCommand = SCMDMD
DAMD.Fill(DSMD, "MEETING_DESC")
TextBox33.DataBindings.Add("Text", DSMD.Tables("MEETING_DESC"), "MEETINGID")
TextBox27.DataBindings.Add("Text", DSMD.Tables("MEETING_DESC"), "AGENDA")
TextBox28.DataBindings.Add("Text", DSMD.Tables("MEETING_DESC"), "EXEC_ID")
CMMD = Me.BindingContext(DSMD.Tables("MEETING_DESC"))
CBMD = New OleDbCommandBuilder(DAMD)
'DETAILS ABOUT MINUTES TABLE
SCMD.Connection = CONM
SCMD.CommandText = "SELECT * FROM MINUTES"
DA.SelectCommand = SCMD
DA.Fill(DS, "MINUTES")
TextBox34.DataBindings.Add("Text", DS.Tables("MINUTES"), "MEETINGID")
TextBox29.DataBindings.Add("Text", DS.Tables("MINUTES"), "MINUTES")
TextBox30.DataBindings.Add("Text", DS.Tables("MINUTES"), "N_NAME")
TextBox31.DataBindings.Add("Text", DS.Tables("MINUTES"), "ST_TIME")
TextBox32.DataBindings.Add("Text", DS.Tables("MINUTES"), "END_TIME")
CM = Me.BindingContext(DS.Tables("MINUTES"))
CB = New OleDbCommandBuilder(DA)
'DETAILS ABOUT ATTENDEE_MASTER TABLE
SCMDATT.Connection = CONM
SCMDATT.CommandText = "SELECT * FROM ATTENDEE_MASTER"
DAATT.SelectCommand = SCMDATT
DAATT.Fill(DSATT, "ATTENDEE_MASTER")
TextBox35.DataBindings.Add("Text", DSATT.Tables("ATTENDEE_MASTER"), "NAME")
TextBox36.DataBindings.Add("Text", DSATT.Tables("ATTENDEE_MASTER"), "DESG")
TextBox37.DataBindings.Add("Text", DSATT.Tables("ATTENDEE_MASTER"), "MEETINGID")
TextBox38.DataBindings.Add("Text", DSATT.Tables("ATTENDEE_MASTER"), "ADDRESS")
TextBox39.DataBindings.Add("Text", DSATT.Tables("ATTENDEE_MASTER"), "PHNO")
TextBox40.DataBindings.Add("Text", DSATT.Tables("ATTENDEE_MASTER"), "MAILID")
CMATT = Me.BindingContext(DSATT.Tables("ATTENDEE_MASTER"))
CBATT = New OleDbCommandBuilder(DAATT)
'DETAILS ABOUT EXEC_MASTER TABLE
SCMDEM.Connection = CONM
SCMDEM.CommandText = "SELECT * FROM EXEC_MASTER"
DAEM.SelectCommand = SCMDEM
DAEM.Fill(DSEM, "EXEC_MASTER")
TextBox41.DataBindings.Add("Text", DSEM.Tables("EXEC_MASTER"), "EXECID")
TextBox42.DataBindings.Add("Text", DSEM.Tables("EXEC_MASTER"), "EXECNAME")
TextBox43.DataBindings.Add("Text", DSEM.Tables("EXEC_MASTER"), "LOCATION")
TextBox44.DataBindings.Add("Text", DSEM.Tables("EXEC_MASTER"), "MOBILENO")
CMEM = Me.BindingContext(DSEM.Tables("EXEC_MASTER"))
CBEM = New OleDbCommandBuilder(DAEM)
'DETAILS ABOUT CON_MASTER TABLE
SCMDCM.Connection = CONM
SCMDCM.CommandText = "SELECT * FROM CON_MASTER"
DACM.SelectCommand = SCMDCM
DACM.Fill(DSCM, "CON_MASTER")
TextBox45.DataBindings.Add("Text", DSCM.Tables("CON_MASTER"), "CONTID")
TextBox46.DataBindings.Add("Text", DSCM.Tables("CON_MASTER"), "CONT_CATEGORY")
CMCM = Me.BindingContext(DSCM.Tables("CON_MASTER"))
CBCM = New OleDbCommandBuilder(DACM)
'DETAILS ABOUT CON_DETAILS TABLE
SCMDCD.Connection = CONM
SCMDCD.CommandText = "SELECT * FROM CON_DETAILS"
DACD.SelectCommand = SCMDCD
DACD.Fill(DSCD, "CON_DETAILS")
TextBox52.DataBindings.Add("Text", DSCD.Tables("CON_DETAILS"), "CONTID")
TextBox47.DataBindings.Add("Text", DSCD.Tables("CON_DETAILS"), "CON_DESC")
TextBox48.DataBindings.Add("Text", DSCD.Tables("CON_DETAILS"), "CONT_TASK")
TextBox49.DataBindings.Add("Text", DSCD.Tables("CON_DETAILS"), "EXEC_ID")

CMCD = Me.BindingContext(DSCD.Tables("CON_DETAILS"))
CBCD = New OleDbCommandBuilder(DACD)
'DETAILS ABOUT CON_STATUS TABLE
SCMDCS.Connection = CONM
SCMDCS.CommandText = "SELECT * FROM CON_STATUS"
DACS.SelectCommand = SCMDCS
DACS.Fill(DSCS, "CON_STATUS")
TextBox53.DataBindings.Add("Text", DSCS.Tables("CON_STATUS"), "CONTID")
TextBox50.DataBindings.Add("Text", DSCS.Tables("CON_STATUS"), "EXEC_ID")
TextBox51.DataBindings.Add("Text", DSCS.Tables("CON_STATUS"), "STATUS")

CMCS = Me.BindingContext(DSCS.Tables("CON_STATUS"))
CBCS = New OleDbCommandBuilder(DACS)
'DETAILS ABOUT ADDRESS TABLE
SCMDA.Connection = CONM
SCMDA.CommandText = "SELECT * FROM ADDRESS"
DAA.SelectCommand = SCMDA
DAA.Fill(DSA, "ADDRESS")
TextBox54.DataBindings.Add("Text", DSA.Tables("ADDRESS"), "ADDREFNO")
TextBox55.DataBindings.Add("Text", DSA.Tables("ADDRESS"), "COMPNAME")
TextBox56.DataBindings.Add("Text", DSA.Tables("ADDRESS"), "LOCATION")
TextBox57.DataBindings.Add("Text", DSA.Tables("ADDRESS"), "CITY")
TextBox58.DataBindings.Add("Text", DSA.Tables("ADDRESS"), "STATE")
TextBox59.DataBindings.Add("Text", DSA.Tables("ADDRESS"), "COUNTRY")

CMA = Me.BindingContext(DSA.Tables("ADDRESS"))
CBA = New OleDbCommandBuilder(DAA)
'DETAILS ABOUT EMAIL TABLE
SCMDE.Connection = CONM
SCMDE.CommandText = "SELECT * FROM EMAIL"
DAE.SelectCommand = SCMDE
DAE.Fill(DSE, "EMAIL")
TextBox67.DataBindings.Add("Text", DSE.Tables("EMAIL"), "ADDREFNO")
TextBox60.DataBindings.Add("Text", DSE.Tables("EMAIL"), "CONT_PERSON")
TextBox61.DataBindings.Add("Text", DSE.Tables("EMAIL"), "EMAILID1")
TextBox62.DataBindings.Add("Text", DSE.Tables("EMAIL"), "EMAILID2")
TextBox63.DataBindings.Add("Text", DSE.Tables("EMAIL"), "OTHERS")

CME = Me.BindingContext(DSE.Tables("EMAIL"))
CBE = New OleDbCommandBuilder(DAE)
'DETAILS ABOUT PHNOS TABLE
SCMDP.Connection = CONM
SCMDP.CommandText = "SELECT * FROM PHNOS"
DAP.SelectCommand = SCMDP
DAP.Fill(DSP, "PHNOS")
TextBox68.DataBindings.Add("Text", DSP.Tables("PHNOS"), "ADDREFNO")
TextBox64.DataBindings.Add("Text", DSP.Tables("PHNOS"), "PHNO1")
TextBox65.DataBindings.Add("Text", DSP.Tables("PHNOS"), "PHNO2")
TextBox66.DataBindings.Add("Text", DSP.Tables("PHNOS"), "MOBILE")

CMP = Me.BindingContext(DSP.Tables("PHNOS"))
CBP = New OleDbCommandBuilder(DAP)
End Sub
Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem1.Click
End Sub
Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
End
End Sub
Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
Private Sub Label15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label15.Click
End Sub
Private Sub TabPage1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPage1.Click
End Sub
Private Sub CMDFIRST_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CMDFIRST.Click
CMM.Position = 0
CMD.Position = 0
CMF.Position = 0
End Sub
Private Sub TextBox9_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox9.TextChanged
End Sub
Private Sub CMDLAST_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CMDLAST.Click
CMM.Position = CMM.Count - 1
CMD.Position = CMD.Count - 1
CMF.Position = CMF.Count - 1
End Sub
Private Sub CMDNEXT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CMDNEXT.Click
If CMM.Position < CMM.Count - 1 And CMD.Position < CMD.Count - 1 And CMF.Position < CMF.Count - 1 Then
CMM.Position = CMM.Position + 1
CMD.Position = CMD.Position + 1
CMF.Position = CMF.Position + 1
Else
MsgBox("LAST RECORD")
End If
End Sub
Private Sub CMDPREVIOUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CMDPREVIOUS.Click
If CMM.Position > 0 And CMD.Position > 0 And CMF.Position > 0 Then
CMM.Position = CMM.Position - 1
CMD.Position = CMD.Position - 1
CMF.Position = CMF.Position - 1
Else
MsgBox("FIRST RECORD")
End If
End Sub
Private Sub CMDADD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CMDADD.Click
CMM.AddNew()
CMD.AddNew()
CMF.AddNew()
TextBox1.Focus()

End Sub
Private Sub CMDSAVE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CMDSAVE.Click
Try
CMM.EndCurrentEdit()
CMD.EndCurrentEdit()
CMF.EndCurrentEdit()
DAM.Update(DSM, "EVENT_MASTER")
DAD.Update(DSD, "EVENT_DESC")
DAF.Update(DSF, "EVENT_FEEDBACK")
Catch E1 As Exception
MsgBox(E1.ToString)
End Try
End Sub
Private Sub CMDCANCEL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CMDCANCEL.Click
CMM.CancelCurrentEdit()
CMD.CancelCurrentEdit()
CMF.CancelCurrentEdit()
End Sub
Private Sub CMDDELETE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CMDDELETE.Click
CMM.RemoveAt(CMM.Position)
CMD.RemoveAt(CMD.Position)
CMF.RemoveAt(CMF.Position)
CMM.Position = 0
CMD.Position = 0
CMF.Position = 0
'Dim row As String = ("DELETE FROM EVENT_MASTER WHERE EVTID=@EVTID")
'Dim row1 As String = ("DELETE FROM EVENT_DESC WHERE EVTID=@EVTID")
'Dim row2 As String = ("DELETE FROM EVENT_FEEDBACK WHERE EVTID=@EVTID")
DAM.Update(DSM, "EVENT_MASTER")
DAD.Update(DSD, "EVENT_DESC")
DAF.Update(DSF, "EVENT_FEEDBACK")
End Sub
Private Sub TextBox1_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Leave
TextBox16.Text = TextBox1.Text
TextBox17.Text = TextBox1.Text
End Sub
Private Sub TextBox32_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox32.TextChanged
End Sub
Private Sub TextBox27_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox27.TextChanged
End Sub
Private Sub TabPage2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPage2.Click
End Sub
Private Sub BTN1FIRST_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN1FIRST.Click
CMMM.Position = 0
CMMD.Position = 0
CM.Position = 0
End Sub
Private Sub BTN1LAST_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN1LAST.Click
CMMM.Position = CMMM.Count - 1
CMMD.Position = CMMD.Count - 1
CM.Position = CM.Count - 1
End Sub
Private Sub BTN1NEXT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN1NEXT.Click
If CMMM.Position < CMMM.Count - 1 And CMMD.Position < CMMD.Count - 1 And CM.Position < CM.Count - 1 Then
CMMM.Position = CMMM.Position + 1
CMMD.Position = CMMD.Position + 1
CM.Position = CM.Position + 1
Else
MsgBox("LAST RECORD")
End If
End Sub
Private Sub BTN1PREVIOUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN1PREVIOUS.Click
If CMMM.Position > 0 And CMMD.Position > 0 And CM.Position > 0 Then
CMMM.Position = CMMM.Position - 1
CMMD.Position = CMMD.Position - 1
CM.Position = CM.Position - 1
Else
MsgBox("FIRST RECORD")
End If
End Sub
Private Sub BTN1ADD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN1ADD.Click
CMMM.AddNew()
CMMD.AddNew()
CM.AddNew()
TextBox18.Focus()
End Sub
Private Sub TextBox35_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox35.TextChanged
End Sub


Private Sub TextBox18_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox18.Leave
TextBox33.Text = TextBox18.Text
TextBox34.Text = TextBox18.Text
End Sub
Private Sub TextBox45_Layout(ByVal sender As Object, ByVal e As System.Windows.Forms.LayoutEventArgs) Handles TextBox45.Layout
End Sub
Private Sub TextBox45_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox45.Leave
TextBox52.Text = TextBox45.Text
TextBox53.Text = TextBox45.Text
End Sub
Private Sub TabPage6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPage6.Click
End Sub
Private Sub TextBox54_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox54.Leave
TextBox67.Text = TextBox54.Text
TextBox68.Text = TextBox54.Text
End Sub
Private Sub BTN4FIRST_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN4FIRST.Click
CMCM.Position = 0
CMCD.Position = 0
CMCS.Position = 0
End Sub
Private Sub BTN3FIRST_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BTN3FIRST.Click
CMEM.Position = 0
End Sub
Private Sub BTN2FIRST_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BTN2FIRST.Click
CMATT.Position = 0
End Sub
Private Sub BTN4NEXT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN4NEXT.Click
If CMCM.Position < CMCM.Count - 1 And CMCD.Position < CMCD.Count - 1 And CMCS.Position < CMCS.Count - 1 Then
CMCM.Position = CMCM.Position + 1
CMCD.Position = CMCD.Position + 1
CMCS.Position = CMCS.Position + 1
Else
MsgBox("LAST RECORD")
End If
End Sub
Private Sub BTN1SAVE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN1SAVE.Click
Try
CMMM.EndCurrentEdit()
CMMD.EndCurrentEdit()
CM.EndCurrentEdit()
DAMM.Update(DSMM, "MEETING_MASTER")
DAMD.Update(DSMD, "MEETING_DESC")
DA.Update(DS, "MINUTES")
Catch E1 As Exception
MsgBox(E1.ToString)
End Try
End Sub
Private Sub BTN1CANCEL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN1CANCEL.Click
CMMM.CancelCurrentEdit()
CMMD.CancelCurrentEdit()
CM.CancelCurrentEdit()
End Sub
Private Sub BTN1DELETE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN1DELETE.Click
CMMM.RemoveAt(CMMM.Position)
CMMD.RemoveAt(CMMD.Position)
CM.RemoveAt(CM.Position)
CMMM.Position = 0
CMMD.Position = 0
CM.Position = 0
DAMM.Update(DSMM, "MEETING_MASTER")
DAMD.Update(DSMD, "MEETING_DESC")
DA.Update(DS, "MINUTES")
End Sub
Private Sub BTN4LAST_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN4LAST.Click
CMCM.Position = CMCM.Count - 1
CMCD.Position = CMCD.Count - 1
CMCS.Position = CMCS.Count - 1
End Sub
Private Sub BTN4PREVIOUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN4PREVIOUS.Click
If CMCM.Position > 0 And CMCD.Position > 0 And CMCS.Position > 0 Then
CMCM.Position = CMCM.Position - 1
CMCD.Position = CMCD.Position - 1
CMCS.Position = CMCS.Position - 1
Else
MsgBox("FIRST RECORD")
End If
End Sub
Private Sub BTN4ADD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN4ADD.Click
CMCM.AddNew()
CMCD.AddNew()
CMCS.AddNew()
TextBox45.Focus()
End Sub
Private Sub BTN4SAVE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN4SAVE.Click
Try
CMCM.EndCurrentEdit()
CMCD.EndCurrentEdit()
CMCS.EndCurrentEdit()
DACM.Update(DSCM, "CON_MASTER")
DACD.Update(DSCD, "CON_DETAILS")
DACS.Update(DSCS, "CON_STATUS")
Catch E1 As Exception
MsgBox(E1.ToString)
End Try
End Sub
Private Sub BTN4CANCEL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN4CANCEL.Click
CMCM.CancelCurrentEdit()
CMCD.CancelCurrentEdit()
CMCS.CancelCurrentEdit()
End Sub
Private Sub BTN4DELETE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN4DELETE.Click
On Error GoTo e
CMCM.RemoveAt(CMCM.Position)
CMCD.RemoveAt(CMCD.Position)
CMCS.RemoveAt(CMCS.Position)
CMCM.Position = 0
CMCD.Position = 0
CMCS.Position = 0
DACM.Update(DSCM, "CON_MASTER")
DACD.Update(DSCD, "CON_DETAILS")
DACS.Update(DSCS, "CON_STATUS")
e:
MsgBox("No records")
End Sub
Private Sub TextBox33_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox33.TextChanged
End Sub
Private Sub TextBox33_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox33.Leave
End Sub
Private Sub BTN2LAST_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN2LAST.Click
CMATT.Position = CMATT.Count - 1
End Sub
Private Sub BTN2NEXT_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BTN2NEXT.Click
If CMATT.Position < CMATT.Count - 1 Then
CMATT.Position = CMATT.Position + 1

Else
MsgBox("LAST RECORD")
End If
End Sub
Private Sub BTN2PREVIOUS_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BTN2PREVIOUS.Click
If CMATT.Position > 0 Then
CMATT.Position = CMATT.Position - 1
Else
MsgBox("FIRST RECORD")
End If
End Sub
Private Sub BTN2ADD_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BTN2ADD.Click
CMATT.AddNew()
TextBox35.Focus()
End Sub
Private Sub BTN2SAVE_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BTN2SAVE.Click
Try
CMATT.EndCurrentEdit()
DAATT.Update(DSATT, "ATTENDEE_MASTER")
Catch E1 As Exception
MsgBox(E1.ToString)
End Try
End Sub
Private Sub BTN2CANCEL_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BTN2CANCEL.Click
CMATT.CancelCurrentEdit()
End Sub
Private Sub BTN2DELETE_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BTN2DELETE.Click
CMATT.RemoveAt(CMATT.Position)
CMATT.Position = 0
DAATT.Update(DSATT, "ATTENDEE_MASTER")
End Sub
Private Sub BTN3LAST_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BTN3LAST.Click
CMEM.Position = CMEM.Count - 1
End Sub
Private Sub BTN3NEXT_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BTN3NEXT.Click
If CMEM.Position < CMEM.Count - 1 Then
CMEM.Position = CMEM.Position + 1
Else
MsgBox("LAST RECORD")
End If
End Sub
Private Sub BTN3PREVIOUS_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BTN3PREVIOUS.Click
If CMEM.Position > 0 Then
CMEM.Position = CMEM.Position - 1
Else
MsgBox("FIRST RECORD")
End If
End Sub
Private Sub BTN3ADD_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BTN3ADD.Click
CMEM.AddNew()
TextBox41.Focus()
End Sub
Private Sub BTN3SAVE_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BTN3SAVE.Click
Try
CMEM.EndCurrentEdit()
DAEM.Update(DSEM, "EXEC_MASTER")
Catch E1 As Exception
MsgBox(E1.ToString)
End Try
End Sub
Private Sub BTN3CANCEL_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BTN3CANCEL.Click
CMEM.CancelCurrentEdit()
End Sub
Private Sub BTN3DELETE_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BTN3DELETE.Click
CMEM.RemoveAt(CMEM.Position)
CMEM.Position = 0
DAEM.Update(DSEM, "EXEC_MASTER")
End Sub
Private Sub BTN5FIRST_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN5FIRST.Click
CMA.Position = 0
CME.Position = 0
CMP.Position = 0
End Sub
Private Sub BTN5LAST_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BTN5LAST.Click
CMA.Position = CMA.Count - 1
CME.Position = CME.Count - 1
CMP.Position = CMP.Count - 1
End Sub
Private Sub BTN5NEXT_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BTN5NEXT.Click
If CMA.Position < CMA.Count - 1 And CME.Position < CME.Count - 1 And CMP.Position < CMP.Count - 1 Then
CMA.Position = CMA.Position + 1
CME.Position = CME.Position + 1
CMP.Position = CMP.Position + 1
Else
MsgBox("LAST RECORD")
End If
End Sub
Private Sub BTN5PREVIOUS_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BTN5PREVIOUS.Click
If CMA.Position > 0 And CME.Position > 0 And CMP.Position > 0 Then
CMA.Position = CMA.Position - 1
CME.Position = CME.Position - 1
CMP.Position = CMP.Position - 1
Else
MsgBox("FIRST RECORD")
End If
End Sub
Private Sub BTN5ADD_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BTN5ADD.Click
CMA.AddNew()
CME.AddNew()
CMP.AddNew()
TextBox54.Focus()
End Sub
Private Sub BTN5SAVE_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BTN5SAVE.Click
Try
CMA.EndCurrentEdit()
CME.EndCurrentEdit()
CMP.EndCurrentEdit()
DAA.Update(DSA, "ADDRESS")
DAE.Update(DSE, "EMAIL")
DAP.Update(DSP, "PHNOS")
Catch E1 As Exception
MsgBox(E1.ToString)
End Try
End Sub
Private Sub BTN5CANCEL_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BTN5CANCEL.Click
CMA.CancelCurrentEdit()
CME.CancelCurrentEdit()
CMP.CancelCurrentEdit()
End Sub
Private Sub BTN5DELETE_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BTN5DELETE.Click
CMA.RemoveAt(CMA.Position)
CME.RemoveAt(CME.Position)
CMP.RemoveAt(CMP.Position)
CMA.Position = 0
CME.Position = 0
CMP.Position = 0
DAA.Update(DSA, "ADDRESS")
DAE.Update(DSE, "EMAIL")
DAP.Update(DSP, "PHNOS")
End Sub
0
terrehaute
8/24/2004 11:21:44 PM
asp.net.oracle 2269 articles. 0 followers. Follow

8 Replies
2206 Views

Similar Articles

[PageSpeed] 12

please help me with the error above. i am getting error in the line CONM.open()
0
terrehaute
8/24/2004 11:42:12 PM
Try creating a connection to your data source through the ServerExplorer in VS.  Look at the connection string it generates and compare it to your connection string.
0
stiletto
8/25/2004 1:16:40 AM
thank you . i will try that.
0
terrehaute
8/25/2004 6:10:28 AM
no it did not work too. can anyone recognize the error i got.
0
terrehaute
8/25/2004 7:10:09 AM
The error is a very generic error that has to be due to the connection string that you are using because of where it's occurring.

What error did you get when you tried to connect to the database through Server Explorer?
0
stiletto
8/25/2004 11:36:52 AM
the error i got while trying to connect through server explorer is

"error occcured in oracle provider but the error message cannot be retrieved from oracle"
0
terrehaute
8/25/2004 11:43:10 PM
I'm not sure the Persist Security Info flag is valid for an oracle connection string.

Here's a link to examples of almost any connection string you could imagine:
http://www.able-consulting.com/ADO_Conn.htm
0
stiletto
8/26/2004 10:50:14 AM
make sure you data source is the name of your oracle server or its IP address - not an actucal DSN.

Also, I would recommend using the OracleClient instead. It is avaialable with version 1.1 of .NET frameworks.
--dweezil

SELECT * FROM users WHERE clue = 'yes';

Records found: 0
0
dweezil
8/26/2004 12:30:10 PM
Reply:

Similar Artilces:

Error:first chance exception of type 'System.Data.SqlClient.SqlException' occurred in system.data.dll
hi all, I have a stored procedure to insert reecords on multiple table and when use this in asp.cs, I got this error:-   first chance exception of type 'System.Data.SqlClient.SqlException' occurred in system.data.dll. Here is my sp             create procedure userRegistration ( @FirstName nvarchar(50), @LastName nvarchar(50), @EmailId varchar(100), @Password nvarchar(50), @CreationDate nvarchar(50), @EffectiveDate nvarchar(50), @AddressLine1 nvarchar(50), @City nvarchar(50), @State nvarchar(50),...

A first chance exception of type 'System.Data.SqlClient.SqlException' occurred in System.Data.dll
I'm trying to pull data from database using a stored procedure to return to an autocomplete extender. It all worked fine with one stored procedure but not with the second one, which has exactly the same SQL code behind it...Ok here is the code from my web service:    Public Function getAutocompleteTitles(ByVal prefixText As String, ByVal count As Integer) As String()        Dim titelAdapter As moviesetsTableAdapters.SelectMoviesetsByTitleTableAdapter = New moviesetsTableAdapters.SelectMoviesetsByTitleTableAdapter    &n...

A first chance exception of type 'System.Data.SqlClient.SqlException' occurred in system.data.dll
Hi, I've written this code multiple times now. But for the first time i get an error at the line underlined. My procedure runs perfectly when i execute it through Sql Query analyzer. plzz help.. Its urgent and am unable to find the reason for this error "A first chance exception of type 'System.Data.SqlClient.SqlException' occurred in system.data.dll" Thanks !SqlConnection conn = new SqlConnection(DbConnectionString); conn.Open(); SqlCommand cmd = conn.CreateCommand(); cmd.CommandText = "dbo.rqryTradesPRR"; cmd.Parameters.Add("@COBDate"...

"An unhandled exception of type 'System.StackOverflowException' occurred in system.data.dll"
An error "An unhandled exception of type 'System.StackOverflowException' occurred in system.data.dll" is occuring when i debug my project.Initially it was working fine but from last 2 days its giving me this error.asset.dll is dll created by me which i m using here.this dll is already added in the reference.If any solution reply..:)  Hi, If possible then send the code where this exception is encountered.You can check for recursion in the code , try the link below too. http://support.microsoft.com/kb/317161 can you give more details or screen shotAmit RegardsAmit Hi:  ...

Error: foreach statement cannot operate on variables of type 'System.Data.DataSet' because 'System.Data.DataSet' does not contain a definition for 'GetEnumerator', or it is inaccessible
I am getting error on this line DataSet dsdata=new DataSet(); SQL="Seelct * from tablename"; //dsdata contains result of the above query foreach(DataRow dr in dsdata) //This line gives error Error: foreach statement cannot operate on variables of type 'System.Data.DataSet' because 'System.Data.DataSet' does not contain a definition for 'GetEnumerator', or it is inaccessible DataSet dsdata=new DataSet(); SQL="Select * from tablename"; //dsdata contains result of the above query foreach(DataRow dr in dsdata.Tables[0].Rows) //This ...

Linq Error Cannot implicitly convert type 'System.Collections.Generic.IEnumerable<AnonymousType#1>' to 'System.Data.EnumerableRowCollection<System.Data.DataRow>'.
Hi I am using a AdventureWorks database and trying to use LINQ to query the data. i am not able to get the AsDataView() if i don't declare query as EnumerableRowCollection. But if i declare the query EnumerableRowCollection it shows me an error Cannot implicitly convert type 'System.Collections.Generic.IEnumerable' to 'System.Data.EnumerableRowCollection'. AdventureWorks.AdventureWorksDataContext db = new AdventureWorks.AdventureWorksDataContext(); EnumerableRowCollection query = from t in db.TransactionHistories.AsEnumerable() ...

A first chance exception of type 'System.ArgumentException' occurred in System.Data.dll...
Hi all,    I'm getting the error "A first chance exception of type 'System.ArgumentException' occurred in System.Data.dll" in the output window when I try to insert using the following code block. When I remove all traces of the collection and the For Each loop it works fine but I can't quite seem to get what is wrong with the loop or the collection. Anyone have any ideas?1 lblStatus.Text = "" 2 Dim dv As DetailsView = DetailsView1 3 Dim WaferID As TextBox = dv.FindControl("txtWaferIDInsert") 4 ...

Unable to cast object of type 'System.Data.DataView' to type 'System.Data.DataTable'.
what is my problem? I'm working with GridView for sorting The error message is that "Unable to cast object of type 'System.Data.DataView' to type 'System.Data.DataTable'".... Dim m_DataTable As DataTable = GridView1.DataSource How can I change the code above?   Well let's see, if your DataSource is a DataView, you can get its associated DataTable object using the .Table property: Dim m_DataTable As DataTable = GridView1.DataSource.Table or in a land of strict typing:  Dim m_DataTable As DataTable = CType(GridView1.DataSource, System.Data.DataView).Table   Hope tha...

Unable to cast object of type 'System.Data.DataView' to type 'System.Data.DataTable'.
When I click the sort hyperlink, I got this error mesg: Unable to cast object of type 'System.Data.DataView' to type 'System.Data.DataTable'.  in line 5.How do I fix this? Thanks. 1 Protected Sub GVCRlisting_Sorting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewSortEventArgs) Handles GVCRlisting.Sorting 2 GridViewSortExpression = e.SortExpression 3 Dim pageIndex As Integer = GVCRlisting.PageIndex 4 5 GVCRlisting.DataSource = SortDataTable(GVCRlisting.DataSource, False) 6 GVCRlisting....

Unable to cast object of type 'System.Data.Common.DataRecordInternal' to type 'System.Data.DataRowView'.
Hi... I have a ListView which is nested in the ItemTemplate of another ListView. If a "status" value in the inner ListView = 1, then I'd like to hide the "Add to cart" link. However, the inner ListView's ItemDataBound event results in the error: "Unable to cast object of type 'System.Data.Common.DataRecordInternal' to type 'System.Data.DataRowView'." I've thoroughly searched the forums, but have not found a solution to this seemingly straightforward problem. Here is the code; the error occurs at line 8. 1 protected void L...

An unhandled exception of type 'System.ArgumentException' occurred in System.Xml.dll,Additional information: '&# x 19', hexadecimal
I am getting some xml file from the resource to which i can't change the generated xml. In my application i am transforming this xml file by the help of my created xsl file to new xml file. I am getting the above mentioned error when Itry to execute mycode for transformation string fXmlFileName = @"C:\Test\FirstExporter1.xml"; string fXsltFileName = @"C:\Test\FirstExporter.xsl"; StreamWriter msOutput = new StreamWriter(@"C:\Test\FirstExporterNew.xml"); XPathDocument doc = new XPathDocument(fXmlFileName); XslCompiledTransform xslt = new XslCompiledTransform();...

convert type 'System.Data.DataSet' to 'System.Data.DataTable'
 I got this error  : Cannot implicitly convert type 'System.Data.DataSet' to 'System.Data.DataTable' i have written code like thisDataTable dt = new DataTable(); dt = GetGalleryImages(name); Possibly coz GetGalleryImages returns a dataset and not a datatable? Try: DataSet ds = GetGalleryImages(name); what type does GetGalleryImages return?  If this returns a dataset then you will have to change datatable to dataset, then index the table of the dataset.Please mark as answer if you find helpful.Ustes G....

error --------------------unable to cast object of type'system.data.datatable'to type system.data.datarow[]
getting error in the bold line  so plz help me to resolve the problem  Private Sub form1_load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load con.Open() Strquery = "Select * from optimizer" adp = New SqlDataAdapter(Strquery, con) adp.Fill(ds, "optimizer") dtb = ds.Tables("optimizer") 'cmdCommand = New SqlCommand(Strquery, con) Try 'dr = cmdCommand.ExecuteReader fs = File.Open("c:/abc.txt", FileMode.Create, FileAccess.Write, FileShare.None) sw = New StreamWriter(fs) For Each drow In ds.Tables sw.WriteLine(drow(0).ToString +...

Error Message:Request for the permission of type 'System.Data.OleDb.OleDbPermission, System.Data, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089' failed.
Hi,           I am trying to read MS Excel file using asp.net and getting error. I have already used this code in another server (Windows 2003 server) before 6 month successfully. But I have same OS in current server only .net version is different.Current Server Configuration : OS : Window Server 2003.net Framework : 3.5 MS Office 2003 My Code is here :  OleDbConnection OledbCon = new OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\\inetpub\\wwwroot\\BEHR_ETMS\\TempDir\\Group.xls;Extended Properties=Excel 8.0;HDR=NO;&qu...

Web resources about - error:An unhandled exception of type 'System.Data.OleDb.OleDbException' occurred in system.data.dll - asp.net.oracle

Resources last updated: 1/14/2016 1:16:33 AM