HELP WITH DATABASE SAVE FOR MINING PROGRAM
I use the code following to insert new data to my database. I have two tables in my database DEMOGRAFICS AND VISIT, related each other one to many
START OF CODE
Dim strSQL As String
'Check for sql problems
Select Case StateFlag
Try
' Build Insert statement to insert new demografics into the demografics table
strSQL = "INSERT INTO VISIT (CODE, CODE_VISIT, DATE_VISIT, STAFF_YES, STAFF_NO, STAFF_NOT_SURE, OZOS_NUM_ONE, OZOS_NUM_MANY, OZOS_POS, OZOS_TYPE_CYST, OZOS_TYPE_COMP," & _
"OZOS_VOL, OZOS_COLOR, OZOS_RESULT, D_G_OZODIS_IPER, D_G_HASHI," & _
"D_G_OXI, D_G_ST_THYRO, D_G_IPOXI, D_G_EIDIKI, D_G_NO_TAKSI, D_G_AYTO," & _
"D_B_THILO, D_B_PIKI, D_B_META, D_B_LOW, D_B_ANAPL, D_B_MIELO, D_B_ATAXI, D_B_LEMFO, D_B_OTHER," & _
"D_B_NEO_THILO, D_B_NEO_OXI, D_SUSPICIOUS, D_LIMIT_THILO, D_LIMIT_OXI," & _
"O_PARA, O_LEMFO, O_BRAXO, O_THYRO, O_FAGO, O_MESE, O_KAROTI, O_SIELO," & _
"EPI_SUB_COL_BIG, EPI_SUB_COL_SMALL, EPI_SUB_BLOOD, EPI_SUB_AMI, EPI_CYTO_SMALL, EPI_CYTO_BIG, " & _
"EPI_SUB_ADD_LEMFO_BIG, EPI_SUB_ADD_LEMFO_SMALL, EPI_SUB_ADD_NEKRO, EPI_SUB_ADD_ASB," & _
"EPI_SUB_ADD_LIPO, EPI_SUB_ADD_FAGO_BIG, EPI_SUB_ADD_FAGO_SMALL, EPI_SUB_ADD_POLI," & _
"EPI_SUB_ADD_GIGA, EPI_SUB_ADD_OTHER, EPI_SUB_ADD_DET, EPI_SUB_ADD_SIND, EPI_SUB_ADD_PSAM, EPI_SUB_ADD_INO, EPI_SUB_ADD_ISTIO, EPI_CELL_SINO_GOOD, EPI_CELL_SINO_LOOSE," & _
"EPI_ARCHI_MONO, EPI_ARCHI_MICRO, EPI_ARCHI_THILA_BIG, EPI_ARCHI_THILA_SMALL, EPI_ARCHI_SIMPA," & _
"EPI_ARCHI_THILO_BIG, EPI_ARCHI_THILO_SMALL, EPI_ARCHI_FREE, CYTO_CELL_MONO, CYTO_CELL_DIP," & _
"CYTO_CELL_POLI, CYTO_CELL_THILA, CYTO_CELL_ATI_BIG, CYTO_CELL_ATI_SMALL, CYTO_CELL_EPI," & _
"CYTO_CELL_OXI, CYTO_CELL_MORFI_ANI, CYTO_CELL_MORFI_OMA, CYTO_CELL_MORFI_POLI, CYTO_CELL_LIMIT_DEF, CYTO_CELL_LIMIT_NOT_DEF," & _
"CYTO_CELL_PLASMA_ATRA, CYTO_CELL_PLASMA_KLAS, CYTO_CELL_PLASMA_PLASMA, CYTO_CELL_PLASMA_DIA, CYTO_CELL_PLASMA_POLIG, CYTO_CELL_PLASMA_KOK, CYTO_CELL_PLASMA_KAINO," & _
"CYTO_NUCL_POS_NOT_CENTER, CYTO_NUCL_POS_CENTER, CYTO_NUC_MORFI_ANI, CYTO_NUC_MORFI_ESO, CYTO_NUC_MORFI_PICNO, CYTO_NUC_MORFI_ISO," & _
"CYTO_NUC_MORFI_SINO, CYTO_NUC_MORFI_PIRI, CYTO_NUC_MORFI_POLI)" & _
"VALUES (@CODE, @CODE_VISIT, @DATE_VISIT, @STAFF_YES, @STAFF_NO, @STAFF_NOT_SURE, @OZOS_NUM_ONE, @OZOS_NUM_MANY, @OZOS_POS, @OZOS_TYPE_CYST, @OZOS_TYPE_COMP," & _
"@OZOS_VOL, @OZOS_COLOR, @OZOS_RESULT, @D_G_OZODIS_IPER, @D_G_HASHI," & _
"@D_G_OXI, @D_G_ST_THYRO, @D_G_IPOXI, @D_G_EIDIKI, @D_G_NO_TAKSI, @D_G_AYTO," & _
"@D_B_THILO, @D_B_PIKI, @D_B_META, @D_B_LOW, @D_B_ANAPL, @D_B_MIELO, @D_B_ATAXI, @D_B_LEMFO, @D_B_OTHER," & _
"@D_B_NEO_THILO, @D_B_NEO_OXI, @D_SUSPICIOUS, @D_LIMIT_THILO, @D_LIMIT_OXI," & _
"@O_PARA, @O_LEMFO, @O_BRAXO, @O_THYRO, @O_FAGO, @O_MESE, @O_KAROTI, @O_SIELO," & _
"@EPI_SUB_COL_BIG, @EPI_SUB_COL_SMALL, @EPI_SUB_BLOOD, @EPI_SUB_AMI, @EPI_CYTO_SMALL, @EPI_CYTO_BIG, " & _
"@EPI_SUB_ADD_LEMFO_BIG, @EPI_SUB_ADD_LEMFO_SMALL, @EPI_SUB_ADD_NEKRO, @EPI_SUB_ADD_ASB," & _
"@EPI_SUB_ADD_LIPO, @EPI_SUB_ADD_FAGO_BIG, @EPI_SUB_ADD_FAGO_SMALL, @EPI_SUB_ADD_POLI," & _
"@EPI_SUB_ADD_GIGA, @EPI_SUB_ADD_OTHER, @EPI_SUB_ADD_DET, @EPI_SUB_ADD_SIND, @EPI_SUB_ADD_PSAM, @EPI_SUB_ADD_INO, @EPI_SUB_ADD_ISTIO, @EPI_CELL_SINO_GOOD, @EPI_CELL_SINO_LOOSE," & _
"@EPI_ARCHI_MONO, @EPI_ARCHI_MICRO, @EPI_ARCHI_THILA_BIG, @EPI_ARCHI_THILA_SMALL, @EPI_ARCHI_SIMPA," & _
"@EPI_ARCHI_THILO_BIG, @EPI_ARCHI_THILO_SMALL, @EPI_ARCHI_FREE, @CYTO_CELL_MONO, @CYTO_CELL_DIP," & _
"@CYTO_CELL_POLI, @CYTO_CELL_THILA, @CYTO_CELL_ATI_BIG, @CYTO_CELL_ATI_SMALL, @CYTO_CELL_EPI," & _
"@CYTO_CELL_OXI, @CYTO_CELL_MORFI_ANI, @CYTO_CELL_MORFI_OMA, @CYTO_CELL_MORFI_POLI, @CYTO_CELL_LIMIT_DEF, @CYTO_CELL_LIMIT_NOT_DEF," & _
"@CYTO_CELL_PLASMA_ATRA, @CYTO_CELL_PLASMA_KLAS, @CYTO_CELL_PLASMA_PLASMA, @CYTO_CELL_PLASMA_DIA, @CYTO_CELL_PLASMA_POLIG, @CYTO_CELL_PLASMA_KOK, @CYTO_CELL_PLASMA_KAINO," & _
"@CYTO_NUCL_POS_NOT_CENTER, @CYTO_NUCL_POS_CENTER, @CYTO_NUC_MORFI_ANI, @CYTO_NUC_MORFI_ESO, @CYTO_NUC_MORFI_PICNO, @CYTO_NUC_MORFI_ISO," & _
"@CYTO_NUC_MORFI_SINO, @CYTO_NUC_MORFI_PIRI, @CYTO_NUC_MORFI_POLI)"
sqlCmd = New SqlCommand(strSQL, connThyroid)
connThyroid.Open()
sqlCmd.Parameters.Add("@CODE", curcode)
sqlCmd.Parameters.Add("@CODE_VISIT", get_code_visit + 1)
sqlCmd.Parameters.Add("@DATE_VISIT", Me.DateTimePicker1.Value)
sqlCmd.Parameters.Add("@STAFF_YES", Me.CheckBox54.CheckState)
sqlCmd.Parameters.Add("@STAFF_NO", Me.CheckBox55.CheckState)
sqlCmd.Parameters.Add("@STAFF_NOT_SURE", Me.CheckBox86.CheckState)
sqlCmd.Parameters.Add("@OZOS_NUM_ONE", Me.CheckBox56.CheckState)
sqlCmd.Parameters.Add("@OZOS_NUM_MANY", Me.CheckBox57.CheckState)
sqlCmd.Parameters.Add("@OZOS_POS", Me.ComboBox1.Text)
sqlCmd.Parameters.Add("@OZOS_TYPE_CYST", Me.CheckBox58.CheckState)
sqlCmd.Parameters.Add("@OZOS_TYPE_COMP", Me.CheckBox59.CheckState)
sqlCmd.Parameters.Add("@OZOS_VOL", Me.TextBox8.Text)
sqlCmd.Parameters.Add("@OZOS_COLOR", Me.ComboBox5.Text)
sqlCmd.Parameters.Add("@OZOS_RESULT", Me.TextBox1.Text)
sqlCmd.Parameters.Add("@D_G_OZODIS_IPER", Me.CheckBox60.CheckState)
sqlCmd.Parameters.Add("@D_G_HASHI", Me.CheckBox61.CheckState)
sqlCmd.Parameters.Add("@D_G_OXI", Me.CheckBox62.CheckState)
sqlCmd.Parameters.Add("@D_G_ST_THYRO", Me.CheckBox63.CheckState)
sqlCmd.Parameters.Add("@D_G_IPOXI", Me.CheckBox64.CheckState)
sqlCmd.Parameters.Add("@D_G_EIDIKI", Me.CheckBox65.CheckState)
sqlCmd.Parameters.Add("@D_G_NO_TAKSI", Me.CheckBox66.CheckState)
sqlCmd.Parameters.Add("@D_G_AYTO", Me.CheckBox95.CheckState)
sqlCmd.Parameters.Add("@D_B_THILO", Me.CheckBox68.CheckState)
sqlCmd.Parameters.Add("@D_B_PIKI", Me.CheckBox87.CheckState)
sqlCmd.Parameters.Add("@D_B_META", Me.CheckBox97.CheckState)
sqlCmd.Parameters.Add("@D_B_LOW", Me.CheckBox96.CheckState)
sqlCmd.Parameters.Add("@D_B_ANAPL", Me.CheckBox75.CheckState)
sqlCmd.Parameters.Add("@D_B_MIELO", Me.CheckBox69.CheckState)
sqlCmd.Parameters.Add("@D_B_ATAXI", Me.CheckBox70.CheckState)
sqlCmd.Parameters.Add("@D_B_LEMFO", Me.CheckBox71.CheckState)
sqlCmd.Parameters.Add("@D_B_OTHER", Me.CheckBox72.CheckState)
sqlCmd.Parameters.Add("@D_B_NEO_THILO", Me.CheckBox73.CheckState)
sqlCmd.Parameters.Add("@D_B_NEO_OXI", Me.CheckBox74.CheckState)
sqlCmd.Parameters.Add("@D_SUSPICIOUS", Me.CheckBox67.CheckState)
sqlCmd.Parameters.Add("@D_LIMIT_THILO", Me.CheckBox76.CheckState)
sqlCmd.Parameters.Add("@D_LIMIT_OXI", Me.CheckBox77.CheckState)
sqlCmd.Parameters.Add("@O_PARA", Me.CheckBox85.CheckState)
sqlCmd.Parameters.Add("@O_LEMFO", Me.CheckBox78.CheckState)
sqlCmd.Parameters.Add("@O_BRAXO", Me.CheckBox79.CheckState)
sqlCmd.Parameters.Add("@O_THYRO", Me.CheckBox80.CheckState)
sqlCmd.Parameters.Add("@O_FAGO", Me.CheckBox81.CheckState)
sqlCmd.Parameters.Add("@O_MESE", Me.CheckBox82.CheckState)
sqlCmd.Parameters.Add("@O_KAROTI", Me.CheckBox83.CheckState)
sqlCmd.Parameters.Add("@O_SIELO", Me.CheckBox84.CheckState)
sqlCmd.Parameters.Add("@EPI_SUB_COL_BIG", Me.CheckBox1.CheckState)
sqlCmd.Parameters.Add("@EPI_SUB_COL_SMALL", Me.CheckBox2.CheckState)
sqlCmd.Parameters.Add("@EPI_SUB_BLOOD", Me.CheckBox3.CheckState)
sqlCmd.Parameters.Add("@EPI_SUB_AMI", Me.CheckBox90.CheckState)
sqlCmd.Parameters.Add("@EPI_CYTO_SMALL", Me.CheckBox4.CheckState)
sqlCmd.Parameters.Add("@EPI_CYTO_BIG", Me.CheckBox5.CheckState)
sqlCmd.Parameters.Add("@EPI_SUB_ADD_LEMFO_BIG", Me.CheckBox8.CheckState)
sqlCmd.Parameters.Add("@EPI_SUB_ADD_LEMFO_SMALL", Me.CheckBox9.CheckState)
sqlCmd.Parameters.Add("@EPI_SUB_ADD_NEKRO", Me.CheckBox10.CheckState)
sqlCmd.Parameters.Add("@EPI_SUB_ADD_ASB", Me.CheckBox11.CheckState)
sqlCmd.Parameters.Add("@EPI_SUB_ADD_LIPO", Me.CheckBox12.CheckState)
sqlCmd.Parameters.Add("@EPI_SUB_ADD_FAGO_BIG", Me.CheckBox14.CheckState)
sqlCmd.Parameters.Add("@EPI_SUB_ADD_FAGO_SMALL", Me.CheckBox13.CheckState)
sqlCmd.Parameters.Add("@EPI_SUB_ADD_POLI", Me.CheckBox15.CheckState)
sqlCmd.Parameters.Add("@EPI_SUB_ADD_GIGA", Me.CheckBox16.CheckState)
sqlCmd.Parameters.Add("@EPI_SUB_ADD_OTHER", Me.CheckBox17.CheckState)
sqlCmd.Parameters.Add("@EPI_SUB_ADD_DET", Me.CheckBox18.CheckState)
sqlCmd.Parameters.Add("@EPI_SUB_ADD_SIND", Me.CheckBox19.CheckState)
sqlCmd.Parameters.Add("@EPI_SUB_ADD_PSAM", Me.CheckBox89.CheckState)
sqlCmd.Parameters.Add("@EPI_SUB_ADD_INO", Me.CheckBox91.CheckState)
sqlCmd.Parameters.Add("@EPI_SUB_ADD_ISTIO", Me.CheckBox92.CheckState)
sqlCmd.Parameters.Add("@EPI_CELL_SINO_GOOD", Me.CheckBox6.CheckState)
sqlCmd.Parameters.Add("@EPI_CELL_SINO_LOOSE", Me.CheckBox7.CheckState)
sqlCmd.Parameters.Add("@EPI_ARCHI_MONO", Me.CheckBox20.CheckState)
sqlCmd.Parameters.Add("@EPI_ARCHI_MICRO", Me.CheckBox21.CheckState)
sqlCmd.Parameters.Add("@EPI_ARCHI_THILA_BIG", Me.CheckBox22.CheckState)
sqlCmd.Parameters.Add("@EPI_ARCHI_THILA_SMALL", Me.CheckBox23.CheckState)
sqlCmd.Parameters.Add("@EPI_ARCHI_SIMPA", Me.CheckBox24.CheckState)
sqlCmd.Parameters.Add("@EPI_ARCHI_THILO_BIG", Me.CheckBox25.CheckState)
sqlCmd.Parameters.Add("@EPI_ARCHI_THILO_SMALL", Me.CheckBox26.CheckState)
sqlCmd.Parameters.Add("@EPI_ARCHI_FREE", Me.CheckBox27.CheckState)
sqlCmd.Parameters.Add("@CYTO_CELL_MONO", Me.CheckBox28.CheckState)
sqlCmd.Parameters.Add("@CYTO_CELL_DIP", Me.CheckBox29.CheckState)
sqlCmd.Parameters.Add("@CYTO_CELL_POLI", Me.CheckBox30.CheckState)
sqlCmd.Parameters.Add("@CYTO_CELL_THILA", Me.CheckBox31.CheckState)
sqlCmd.Parameters.Add("@CYTO_CELL_ATI_BIG", Me.CheckBox32.CheckState)
sqlCmd.Parameters.Add("@CYTO_CELL_ATI_SMALL", Me.CheckBox39.CheckState)
sqlCmd.Parameters.Add("@CYTO_CELL_EPI", Me.CheckBox33.CheckState)
sqlCmd.Parameters.Add("@CYTO_CELL_OXI", Me.CheckBox34.CheckState)
sqlCmd.Parameters.Add("@CYTO_CELL_MORFI_ANI", Me.CheckBox40.CheckState)
sqlCmd.Parameters.Add("@CYTO_CELL_MORFI_OMA", Me.CheckBox41.CheckState)
sqlCmd.Parameters.Add("@CYTO_CELL_MORFI_POLI", Me.CheckBox42.CheckState)
sqlCmd.Parameters.Add("@CYTO_CELL_LIMIT_DEF", Me.CheckBox35.CheckState)
sqlCmd.Parameters.Add("@CYTO_CELL_LIMIT_NOT_DEF", Me.CheckBox36.CheckState)
sqlCmd.Parameters.Add("@CYTO_CELL_PLASMA_ATRA", Me.CheckBox43.CheckState)
sqlCmd.Parameters.Add("@CYTO_CELL_PLASMA_KLAS", Me.CheckBox44.CheckState)
sqlCmd.Parameters.Add("@CYTO_CELL_PLASMA_PLASMA", Me.CheckBox45.CheckState)
sqlCmd.Parameters.Add("@CYTO_CELL_PLASMA_DIA", Me.CheckBox46.CheckState)
sqlCmd.Parameters.Add("@CYTO_CELL_PLASMA_POLIG", Me.CheckBox88.CheckState)
sqlCmd.Parameters.Add("@CYTO_CELL_PLASMA_KOK", Me.CheckBox93.CheckState)
sqlCmd.Parameters.Add("@CYTO_CELL_PLASMA_KAINO", Me.CheckBox94.CheckState)
sqlCmd.Parameters.Add("@CYTO_NUCL_POS_NOT_CENTER", Me.CheckBox37.CheckState)
sqlCmd.Parameters.Add("@CYTO_NUCL_POS_CENTER", Me.CheckBox38.CheckState)
sqlCmd.Parameters.Add("@CYTO_NUC_MORFI_ANI", Me.CheckBox47.CheckState)
sqlCmd.Parameters.Add("@CYTO_NUC_MORFI_ESO", Me.CheckBox48.CheckState)
sqlCmd.Parameters.Add("@CYTO_NUC_MORFI_PICNO", Me.CheckBox49.CheckState)
sqlCmd.Parameters.Add("@CYTO_NUC_MORFI_ISO", Me.CheckBox50.CheckState)
sqlCmd.Parameters.Add("@CYTO_NUC_MORFI_SINO", Me.CheckBox51.CheckState)
sqlCmd.Parameters.Add("@CYTO_NUC_MORFI_PIRI", Me.CheckBox52.CheckState)
sqlCmd.Parameters.Add("@CYTO_NUC_MORFI_POLI", Me.CheckBox53.CheckState)
sqlCmd.ExecuteNonQuery()
Dataset11.Clear()
connThyroid.Close()
' HERE GIVES THE PROBLEM
Me.SqlDA_Visit.Fill(Dataset11, "VISIT")
' HERE GIVES THE PROBLEM
Go_to_first() ' goes to the first of the datagrid
DataGrid1.CurrentRowIndex = 0
END OF CODE
I receive the following error
System.InvalidOperationException was unhandled
Message="String[0]: the Size property has an invalid size of 0."
on line of the code with
Me.SqlDA_Visit.Fill(Dataset11, "VISIT")
I give some more details for the error as I get them from the copy to clipboard
Source="System.Data"
StackTrace:
at System.Data.SqlClient.SqlParameter.Validate(Int32 index)
at System.Data.SqlClient.SqlCommand.BuildParamList(TdsParser parser, SqlParameterCollection parameters)
at System.Data.SqlClient.SqlCommand.BuildExecuteSql(CommandBehavior behavior, String commandText, SqlParameterCollection parameters, _SqlRPC& rpc)
at System.Data.SqlClient.SqlCommand.RunExecuteReaderTds(CommandBehavior cmdBehavior, RunBehavior runBehavior, Boolean returnStream, Boolean async)
at System.Data.SqlClient.SqlCommand.RunExecuteReader(CommandBehavior cmdBehavior, RunBehavior runBehavior, Boolean returnStream, String method, DbAsyncResult result)
at System.Data.SqlClient.SqlCommand.RunExecuteReader(CommandBehavior cmdBehavior, RunBehavior runBehavior, Boolean returnStream, String method)
at System.Data.SqlClient.SqlCommand.ExecuteReader(CommandBehavior behavior, String method)
at System.Data.SqlClient.SqlCommand.ExecuteDbDataReader(CommandBehavior behavior)
at System.Data.Common.DbCommand.System.Data.IDbCommand.ExecuteReader(CommandBehavior behavior)
at System.Data.Common.DbDataAdapter.FillInternal(DataSet dataset, DataTable[] datatables, Int32 startRecord, Int32 maxRecords, String srcTable, IDbCommand command, CommandBehavior behavior)
at System.Data.Common.DbDataAdapter.Fill(DataSet dataSet, Int32 startRecord, Int32 maxRecords, String srcTable, IDbCommand command, CommandBehavior behavior)
at System.Data.Common.DbDataAdapter.Fill(DataSet dataSet, String srcTable)
at First_Envirorment.Form2.Button3_Click(Object sender, EventArgs e) in C:Documents and SettingsmanolisMy DocumentsPHDImplementation!My codesFirst Envirorment_11_09_2006_with_orderForm2.vb:line 3267
at System.Windows.Forms.Control.OnClick(EventArgs e)
at System.Windows.Forms.Button.OnClick(EventArgs e)
at System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)
at System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
at System.Windows.Forms.Control.WndProc(Message& m)
at System.Windows.Forms.ButtonBase.WndProc(Message& m)
at System.Windows.Forms.Button.WndProc(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
at System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
at System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)
at System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(Int32 dwComponentID, Int32 reason, Int32 pvLoopData)
at System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)
at System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)
at System.Windows.Forms.Form.ShowDialog(IWin32Window owner)
at System.Windows.Forms.Form.ShowDialog()
at First_Envirorment.Form1.Button4_Click(Object sender, EventArgs e) in C:Documents and SettingsmanolisMy DocumentsPHDImplementation!My codesFirst Envirorment_11_09_2006_with_orderForm1.vb:line 1231
at System.Windows.Forms.Control.OnClick(EventArgs e)
at System.Windows.Forms.Button.OnClick(EventArgs e)
at System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)
at System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
at System.Windows.Forms.Control.WndProc(Message& m)
at System.Windows.Forms.ButtonBase.WndProc(Message& m)
at System.Windows.Forms.Button.WndProc(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
at System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
at System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)
at System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(Int32 dwComponentID, Int32 reason, Int32 pvLoopData)
at System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)
at System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)
at System.Windows.Forms.Form.ShowDialog(IWin32Window owner)
at System.Windows.Forms.Form.ShowDialog()
at First_Envirorment.Form3.OkButton_Click(Object sender, EventArgs e) in C:Documents and SettingsmanolisMy DocumentsPHDImplementation!My codesFirst Envirorment_11_09_2006_with_orderForm3.vb:line 144
at System.Windows.Forms.Control.OnClick(EventArgs e)
at System.Windows.Forms.Button.OnClick(EventArgs e)
at System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)
at System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
at System.Windows.Forms.Control.WndProc(Message& m)
at System.Windows.Forms.ButtonBase.WndProc(Message& m)
at System.Windows.Forms.Button.WndProc(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
at System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
at System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)
at System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(Int32 dwComponentID, Int32 reason, Int32 pvLoopData)
at System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)
at System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)
at System.Windows.Forms.Application.Run(Form mainForm)
at First_Envirorment.Form3.Main() in C:Documents and SettingsmanolisMy DocumentsPHDImplementation!My codesFirst Envirorment_11_09_2006_with_orderForm3.vb:line 3
at System.AppDomain.nExecuteAssembly(Assembly assembly, String[] args)
at System.AppDomain.ExecuteAssembly(String assemblyFile, Evidence assemblySecurity, String[] args)
at Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly()
at System.Threading.ThreadHelper.ThreadStart_Context(Object state)
at System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state)
at System.Threading.ThreadHelper.ThreadStart()
View Replies !