PDA

View Full Version : مشكل در insert به بانك


arsalansalar
یک شنبه 06 مرداد 1387, 08:07 صبح
من به يك مشكل برخوردم كه نمي تونم حلش كنم.برنامه من مانند چيزهايي كه در عكس توضيح دادم كار مي كند.همانطور كه از كدهاي من پيداست من دستور نوشتم كه اگر تكست باكس 2 خالي بود 1 مورد به جدول اضافه شود.اگر تكست باكس 3 خالي بود 2 مورد به جدول اضافه شود و ............
حالا مي خواهم بدونم چه دستوري بنويسم كه اين شرطها رو نداشته باشه و خودش بياد به ترتيب پر شدن تكست باكسها(حالا چه يكي ژر باشد چه 5 تا)ركورد به جدول اضافه كند.

''''''''''''''''''''''''''''
con = New OleDbConnection("provider=microsoft.jet.oledb.4.0 ; data source=" & Application.StartupPath() & "\dbj.mdb")
da = New OleDbDataAdapter("select maf from mojer where maf <> null Order By id desc ", con)
ds = New DataSet
da.Fill(ds)
For i As Integer = 0 To ds.Tables(0).Rows.Count - 1
Li1.Items.Add(ds.Tables(0).Rows(i)(0))
Next i
Li1.DataSource = ds.Tables("mojer")
''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''
con = New OleDbConnection("provider=microsoft.jet.oledb.4.0 ; data source=" & Application.StartupPath() & "\dbj.mdb")
da = New OleDbDataAdapter("select sma from malek where ssar = 'سرپرست' Order By id desc ", con)
ds = New DataSet
da.Fill(ds)
For i As Integer = 0 To ds.Tables(0).Rows.Count - 1
Li1.Items.Add(ds.Tables(0).Rows(i)(0))
Next i
Li1.DataSource = ds.Tables("malek")
''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''ccccccccccccccccccccccc'''''''''' '''''''''
''''''''''''''''''''''''''''
con = New OleDbConnection("provider=microsoft.jet.oledb.4.0 ; data source=" & Application.StartupPath() & "\dbj.mdb")
da = New OleDbDataAdapter("select mfam from mojer where mfam <> null Order By id desc ", con)
ds = New DataSet
da.Fill(ds)
For i As Integer = 0 To ds.Tables(0).Rows.Count - 1
Li2.Items.Add(ds.Tables(0).Rows(i)(0))
Next i
Li2.DataSource = ds.Tables("mojer")
''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''
con = New OleDbConnection("provider=microsoft.jet.oledb.4.0 ; data source=" & Application.StartupPath() & "\dbj.mdb")
da = New OleDbDataAdapter("select sfam from malek where ssar = 'سرپرست' Order By id desc ", con)
ds = New DataSet
da.Fill(ds)
For i As Integer = 0 To ds.Tables(0).Rows.Count - 1
Li2.Items.Add(ds.Tables(0).Rows(i)(0))
Next i
Li2.DataSource = ds.Tables("malek")
''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''list''''''''''''''''''''
Dim arr1() As Control = {TextBox1, TextBox2, TextBox3, TextBox4, TextBox5}
For i As Integer = 0 To Li1.Items.Count - 1
CType(arr1(i), TextBox).Text = Li1.Items(i).ToString
Next
''''''''''''''''''''''list''''''''''''''''''''
Dim arr2() As Control = {TextBox16, TextBox17, TextBox18, TextBox19, TextBox20}
For i As Integer = 0 To Li2.Items.Count - 1
CType(arr2(i), TextBox).Text = Li2.Items(i).ToString
Next
''''''''''''''''''''''''''''''''''''''''
TextBox21.Text = Val(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox3.Text) + Val(TextBox4.Text) + Val(TextBox5.Text)
'''''''''''''
tagh.Text = Val(Label14.Text) / Val(TextBox21.Text)
'''''''
Dim arr3() As Control = {TextBox6, TextBox7, TextBox8, TextBox9, TextBox10}
For i As Integer = 0 To Li2.Items.Count - 1
CType(arr3(i), TextBox).Text = tagh.Text
Next
'''''''''''''''''''''''
Dim arr4() As Control = {TextBox11, TextBox12, TextBox13, TextBox14, TextBox15}
For i As Integer = 0 To Li2.Items.Count - 1
CType(arr4(i), TextBox).Text = Val(Li1.Items(i).ToString) * Val(tagh.Text)
Next
''''''''''''''''
If TextBox2.Text = Nothing Then
con = New OleDbConnection("provider=microsoft.jet.oledb.4.0 ; data source=" & Application.StartupPath() & "\dbj.mdb")
Try
Dim strSQL As String = _
"INSERT INTO nafar (da,ma,sa,taf,maon,koma,fam,bed,rapa)" & _
"VALUES (@da,@ma,@sa,@taf,@maon,@koma,@fam,@bed,@rapa)"
Dim cmd As New OleDbCommand(strSQL, con)
With cmd
.Parameters.Add(New OleDbParameter("@da", TextBox22.Text))
.Parameters.Add(New OleDbParameter("@ma", TextBox23.Text))
.Parameters.Add(New OleDbParameter("@sa", TextBox24.Text))
.Parameters.Add(New OleDbParameter("@taf", TextBox1.Text))
.Parameters.Add(New OleDbParameter("@maon", TextBox6.Text))
.Parameters.Add(New OleDbParameter("@koma", TextBox11.Text))
.Parameters.Add(New OleDbParameter("@fam", TextBox16.Text))
.Parameters.Add(New OleDbParameter("@bed", TextBox27.Text))
.Parameters.Add(New OleDbParameter("@rapa", Label13.Text))
End With
con.Open()
cmd.ExecuteNonQuery()
con.Close()
Catch sqlExc As OleDbException
MessageBox.Show(sqlExc.ToString, "SQL Exception Error!", _
MessageBoxButtons.OK, MessageBoxIcon.Error)
Catch exc As Exception
End Try
' MessageBox.Show("عملیات ثبت انجام شد", "جزیره", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
''''''''''''
If TextBox3.Text = Nothing Then
con = New OleDbConnection("provider=microsoft.jet.oledb.4.0 ; data source=" & Application.StartupPath() & "\dbj.mdb")
Try
Dim strSQL As String = _
"INSERT INTO nafar (da,ma,sa,taf,maon,koma,fam,bed,rapa)" & _
"VALUES (@da,@ma,@sa,@taf,@maon,@koma,@fam,@bed,@rapa)"
Dim cmd As New OleDbCommand(strSQL, con)
With cmd
.Parameters.Add(New OleDbParameter("@da", TextBox22.Text))
.Parameters.Add(New OleDbParameter("@ma", TextBox23.Text))
.Parameters.Add(New OleDbParameter("@sa", TextBox24.Text))
.Parameters.Add(New OleDbParameter("@taf", TextBox1.Text))
.Parameters.Add(New OleDbParameter("@maon", TextBox6.Text))
.Parameters.Add(New OleDbParameter("@koma", TextBox11.Text))
.Parameters.Add(New OleDbParameter("@fam", TextBox16.Text))
.Parameters.Add(New OleDbParameter("@bed", TextBox27.Text))
.Parameters.Add(New OleDbParameter("@rapa", Label13.Text))
End With
con.Open()
cmd.ExecuteNonQuery()
con.Close()
Catch sqlExc As OleDbException
MessageBox.Show(sqlExc.ToString, "SQL Exception Error!", _
MessageBoxButtons.OK, MessageBoxIcon.Error)
Catch exc As Exception
End Try
'MessageBox.Show("عملیات ثبت انجام شد", "جزیره", MessageBoxButtons.OK, MessageBoxIcon.Information)
''''''''''''''''''''''''
con = New OleDbConnection("provider=microsoft.jet.oledb.4.0 ; data source=" & Application.StartupPath() & "\dbj.mdb")
Try
Dim strSQL As String = _
"INSERT INTO nafar (da,ma,sa,taf,maon,koma,fam,bed,rapa)" & _
"VALUES (@da,@ma,@sa,@taf,@maon,@koma,@fam,@bed,@rapa)"
Dim cmd As New OleDbCommand(strSQL, con)
With cmd
.Parameters.Add(New OleDbParameter("@da", TextBox22.Text))
.Parameters.Add(New OleDbParameter("@ma", TextBox23.Text))
.Parameters.Add(New OleDbParameter("@sa", TextBox24.Text))
.Parameters.Add(New OleDbParameter("@taf", TextBox2.Text))
.Parameters.Add(New OleDbParameter("@maon", TextBox7.Text))
.Parameters.Add(New OleDbParameter("@koma", TextBox12.Text))
.Parameters.Add(New OleDbParameter("@fam", TextBox17.Text))
.Parameters.Add(New OleDbParameter("@bed", TextBox27.Text))
.Parameters.Add(New OleDbParameter("@rapa", Label13.Text))
End With
con.Open()
cmd.ExecuteNonQuery()
con.Close()
Catch sqlExc As OleDbException
MessageBox.Show(sqlExc.ToString, "SQL Exception Error!", _
MessageBoxButtons.OK, MessageBoxIcon.Error)
Catch exc As Exception
End Try
MessageBox.Show("عملیات ثبت انجام شد", "جزیره", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
''''''''''''''''''''''
If TextBox4.Text = Nothing Then
con = New OleDbConnection("provider=microsoft.jet.oledb.4.0 ; data source=" & Application.StartupPath() & "\dbj.mdb")
Try
Dim strSQL As String = _
"INSERT INTO nafar (da,ma,sa,taf,maon,koma,fam,bed,rapa)" & _
"VALUES (@da,@ma,@sa,@taf,@maon,@koma,@fam,@bed,@rapa)"
Dim cmd As New OleDbCommand(strSQL, con)
With cmd
.Parameters.Add(New OleDbParameter("@da", TextBox22.Text))
.Parameters.Add(New OleDbParameter("@ma", TextBox23.Text))
.Parameters.Add(New OleDbParameter("@sa", TextBox24.Text))
.Parameters.Add(New OleDbParameter("@taf", TextBox1.Text))
.Parameters.Add(New OleDbParameter("@maon", TextBox6.Text))
.Parameters.Add(New OleDbParameter("@koma", TextBox11.Text))
.Parameters.Add(New OleDbParameter("@fam", TextBox16.Text))
.Parameters.Add(New OleDbParameter("@bed", TextBox27.Text))
.Parameters.Add(New OleDbParameter("@rapa", Label13.Text))
End With
con.Open()
cmd.ExecuteNonQuery()
con.Close()
Catch sqlExc As OleDbException
MessageBox.Show(sqlExc.ToString, "SQL Exception Error!", _
MessageBoxButtons.OK, MessageBoxIcon.Error)
Catch exc As Exception
End Try
'MessageBox.Show("عملیات ثبت انجام شد", "جزیره", MessageBoxButtons.OK, MessageBoxIcon.Information)
''''''''''''''''''''''''
con = New OleDbConnection("provider=microsoft.jet.oledb.4.0 ; data source=" & Application.StartupPath() & "\dbj.mdb")
Try
Dim strSQL As String = _
"INSERT INTO nafar (da,ma,sa,taf,maon,koma,fam,bed,rapa)" & _
"VALUES (@da,@ma,@sa,@taf,@maon,@koma,@fam,@bed,@rapa)"
Dim cmd As New OleDbCommand(strSQL, con)
With cmd
.Parameters.Add(New OleDbParameter("@da", TextBox22.Text))
.Parameters.Add(New OleDbParameter("@ma", TextBox23.Text))
.Parameters.Add(New OleDbParameter("@sa", TextBox24.Text))
.Parameters.Add(New OleDbParameter("@taf", TextBox2.Text))
.Parameters.Add(New OleDbParameter("@maon", TextBox7.Text))
.Parameters.Add(New OleDbParameter("@koma", TextBox12.Text))
.Parameters.Add(New OleDbParameter("@fam", TextBox17.Text))
.Parameters.Add(New OleDbParameter("@bed", TextBox27.Text))
.Parameters.Add(New OleDbParameter("@rapa", Label13.Text))
End With
con.Open()
cmd.ExecuteNonQuery()
con.Close()
Catch sqlExc As OleDbException
MessageBox.Show(sqlExc.ToString, "SQL Exception Error!", _
MessageBoxButtons.OK, MessageBoxIcon.Error)
Catch exc As Exception
End Try
MessageBox.Show("عملیات ثبت انجام شد", "جزیره", MessageBoxButtons.OK, MessageBoxIcon.Information)
''''''''''''''''''''''''
con = New OleDbConnection("provider=microsoft.jet.oledb.4.0 ; data source=" & Application.StartupPath() & "\dbj.mdb")
Try
Dim strSQL As String = _
"INSERT INTO nafar (da,ma,sa,taf,maon,koma,fam,bed,rapa)" & _
"VALUES (@da,@ma,@sa,@taf,@maon,@koma,@fam,@bed,@rapa)"
Dim cmd As New OleDbCommand(strSQL, con)
With cmd
.Parameters.Add(New OleDbParameter("@da", TextBox22.Text))
.Parameters.Add(New OleDbParameter("@ma", TextBox23.Text))
.Parameters.Add(New OleDbParameter("@sa", TextBox24.Text))
.Parameters.Add(New OleDbParameter("@taf", TextBox3.Text))
.Parameters.Add(New OleDbParameter("@maon", TextBox8.Text))
.Parameters.Add(New OleDbParameter("@koma", TextBox13.Text))
.Parameters.Add(New OleDbParameter("@fam", TextBox18.Text))
.Parameters.Add(New OleDbParameter("@bed", TextBox27.Text))
.Parameters.Add(New OleDbParameter("@rapa", Label13.Text))
End With
con.Open()
cmd.ExecuteNonQuery()
con.Close()
Catch sqlExc As OleDbException
MessageBox.Show(sqlExc.ToString, "SQL Exception Error!", _
MessageBoxButtons.OK, MessageBoxIcon.Error)
Catch exc As Exception
End Try
MessageBox.Show("عملیات ثبت انجام شد", "جزیره", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
'''''''''''''''''''''''''
If TextBox5.Text = Nothing Then
con = New OleDbConnection("provider=microsoft.jet.oledb.4.0 ; data source=" & Application.StartupPath() & "\dbj.mdb")
Try
Dim strSQL As String = _
"INSERT INTO nafar (da,ma,sa,taf,maon,koma,fam,bed,rapa)" & _
"VALUES (@da,@ma,@sa,@taf,@maon,@koma,@fam,@bed,@rapa)"
Dim cmd As New OleDbCommand(strSQL, con)
With cmd
.Parameters.Add(New OleDbParameter("@da", TextBox22.Text))
.Parameters.Add(New OleDbParameter("@ma", TextBox23.Text))
.Parameters.Add(New OleDbParameter("@sa", TextBox24.Text))
.Parameters.Add(New OleDbParameter("@taf", TextBox1.Text))
.Parameters.Add(New OleDbParameter("@maon", TextBox6.Text))
.Parameters.Add(New OleDbParameter("@koma", TextBox11.Text))
.Parameters.Add(New OleDbParameter("@fam", TextBox16.Text))
.Parameters.Add(New OleDbParameter("@bed", TextBox27.Text))
.Parameters.Add(New OleDbParameter("@rapa", Label13.Text))
End With
con.Open()
cmd.ExecuteNonQuery()
con.Close()
Catch sqlExc As OleDbException
MessageBox.Show(sqlExc.ToString, "SQL Exception Error!", _
MessageBoxButtons.OK, MessageBoxIcon.Error)
Catch exc As Exception
End Try
'MessageBox.Show("عملیات ثبت انجام شد", "جزیره", MessageBoxButtons.OK, MessageBoxIcon.Information)
''''''''''''''''''''''''
con = New OleDbConnection("provider=microsoft.jet.oledb.4.0 ; data source=" & Application.StartupPath() & "\dbj.mdb")
Try
Dim strSQL As String = _
"INSERT INTO nafar (da,ma,sa,taf,maon,koma,fam,bed,rapa)" & _
"VALUES (@da,@ma,@sa,@taf,@maon,@koma,@fam,@bed,@rapa)"
Dim cmd As New OleDbCommand(strSQL, con)
With cmd
.Parameters.Add(New OleDbParameter("@da", TextBox22.Text))
.Parameters.Add(New OleDbParameter("@ma", TextBox23.Text))
.Parameters.Add(New OleDbParameter("@sa", TextBox24.Text))
.Parameters.Add(New OleDbParameter("@taf", TextBox2.Text))
.Parameters.Add(New OleDbParameter("@maon", TextBox7.Text))
.Parameters.Add(New OleDbParameter("@koma", TextBox12.Text))
.Parameters.Add(New OleDbParameter("@fam", TextBox17.Text))
.Parameters.Add(New OleDbParameter("@bed", TextBox27.Text))
.Parameters.Add(New OleDbParameter("@rapa", Label13.Text))
End With
con.Open()
cmd.ExecuteNonQuery()
con.Close()
Catch sqlExc As OleDbException
MessageBox.Show(sqlExc.ToString, "SQL Exception Error!", _
MessageBoxButtons.OK, MessageBoxIcon.Error)
Catch exc As Exception
End Try
MessageBox.Show("عملیات ثبت انجام شد", "جزیره", MessageBoxButtons.OK, MessageBoxIcon.Information)
''''''''''''''''''''''''
con = New OleDbConnection("provider=microsoft.jet.oledb.4.0 ; data source=" & Application.StartupPath() & "\dbj.mdb")
Try
Dim strSQL As String = _
"INSERT INTO nafar (da,ma,sa,taf,maon,koma,fam,bed,rapa)" & _
"VALUES (@da,@ma,@sa,@taf,@maon,@koma,@fam,@bed,@rapa)"
Dim cmd As New OleDbCommand(strSQL, con)
With cmd
.Parameters.Add(New OleDbParameter("@da", TextBox22.Text))
.Parameters.Add(New OleDbParameter("@ma", TextBox23.Text))
.Parameters.Add(New OleDbParameter("@sa", TextBox24.Text))
.Parameters.Add(New OleDbParameter("@taf", TextBox3.Text))
.Parameters.Add(New OleDbParameter("@maon", TextBox8.Text))
.Parameters.Add(New OleDbParameter("@koma", TextBox13.Text))
.Parameters.Add(New OleDbParameter("@fam", TextBox18.Text))
.Parameters.Add(New OleDbParameter("@bed", TextBox27.Text))
.Parameters.Add(New OleDbParameter("@rapa", Label13.Text))
End With
con.Open()
cmd.ExecuteNonQuery()
con.Close()
Catch sqlExc As OleDbException
MessageBox.Show(sqlExc.ToString, "SQL Exception Error!", _
MessageBoxButtons.OK, MessageBoxIcon.Error)
Catch exc As Exception
End Try
MessageBox.Show("عملیات ثبت انجام شد", "جزیره", MessageBoxButtons.OK, MessageBoxIcon.Information)
''''''''''''''''''''''''
con = New OleDbConnection("provider=microsoft.jet.oledb.4.0 ; data source=" & Application.StartupPath() & "\dbj.mdb")
Try
Dim strSQL As String = _
"INSERT INTO nafar (da,ma,sa,taf,maon,koma,fam,bed,rapa)" & _
"VALUES (@da,@ma,@sa,@taf,@maon,@koma,@fam,@bed,@rapa)"
Dim cmd As New OleDbCommand(strSQL, con)
With cmd
.Parameters.Add(New OleDbParameter("@da", TextBox22.Text))
.Parameters.Add(New OleDbParameter("@ma", TextBox23.Text))
.Parameters.Add(New OleDbParameter("@sa", TextBox24.Text))
.Parameters.Add(New OleDbParameter("@taf", TextBox4.Text))
.Parameters.Add(New OleDbParameter("@maon", TextBox9.Text))
.Parameters.Add(New OleDbParameter("@koma", TextBox14.Text))
.Parameters.Add(New OleDbParameter("@fam", TextBox19.Text))
.Parameters.Add(New OleDbParameter("@bed", TextBox27.Text))
.Parameters.Add(New OleDbParameter("@rapa", Label13.Text))
End With
con.Open()
cmd.ExecuteNonQuery()
con.Close()
Catch sqlExc As OleDbException
MessageBox.Show(sqlExc.ToString, "SQL Exception Error!", _
MessageBoxButtons.OK, MessageBoxIcon.Error)
Catch exc As Exception
End Try
MessageBox.Show("عملیات ثبت انجام شد", "جزیره", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
'''''''''''''''''''''''''''''''
If TextBox25.Text = Nothing Then
con = New OleDbConnection("provider=microsoft.jet.oledb.4.0 ; data source=" & Application.StartupPath() & "\dbj.mdb")
Try
Dim strSQL As String = _
"INSERT INTO nafar (da,ma,sa,taf,maon,koma,fam,bed,rapa)" & _
"VALUES (@da,@ma,@sa,@taf,@maon,@koma,@fam,@bed,@rapa)"
Dim cmd As New OleDbCommand(strSQL, con)
With cmd
.Parameters.Add(New OleDbParameter("@da", TextBox22.Text))
.Parameters.Add(New OleDbParameter("@ma", TextBox23.Text))
.Parameters.Add(New OleDbParameter("@sa", TextBox24.Text))
.Parameters.Add(New OleDbParameter("@taf", TextBox1.Text))
.Parameters.Add(New OleDbParameter("@maon", TextBox6.Text))
' .Parameters.Add(New OleDbParameter("@koma", Format$val((TextBox11.Text, "##, ## 0.00"))))
.Parameters.Add(New OleDbParameter("@koma", Val(TextBox11.Text)))
.Parameters.Add(New OleDbParameter("@fam", TextBox16.Text))
.Parameters.Add(New OleDbParameter("@bed", TextBox27.Text))
.Parameters.Add(New OleDbParameter("@rapa", Label13.Text))
End With
con.Open()
cmd.ExecuteNonQuery()
con.Close()
Catch sqlExc As OleDbException
MessageBox.Show(sqlExc.ToString, "SQL Exception Error!", _
MessageBoxButtons.OK, MessageBoxIcon.Error)
Catch exc As Exception
End Try
'MessageBox.Show("عملیات ثبت انجام شد", "جزیره", MessageBoxButtons.OK, MessageBoxIcon.Information)
''''''''''''''''''''''''
con = New OleDbConnection("provider=microsoft.jet.oledb.4.0 ; data source=" & Application.StartupPath() & "\dbj.mdb")
Try
Dim strSQL As String = _
"INSERT INTO nafar (da,ma,sa,taf,maon,koma,fam,bed,rapa)" & _
"VALUES (@da,@ma,@sa,@taf,@maon,@koma,@fam,@bed,@rapa)"
Dim cmd As New OleDbCommand(strSQL, con)
With cmd
.Parameters.Add(New OleDbParameter("@da", TextBox22.Text))
.Parameters.Add(New OleDbParameter("@ma", TextBox23.Text))
.Parameters.Add(New OleDbParameter("@sa", TextBox24.Text))
.Parameters.Add(New OleDbParameter("@taf", TextBox2.Text))
.Parameters.Add(New OleDbParameter("@maon", TextBox7.Text))
.Parameters.Add(New OleDbParameter("@koma", TextBox12.Text))
.Parameters.Add(New OleDbParameter("@fam", TextBox17.Text))
.Parameters.Add(New OleDbParameter("@bed", TextBox27.Text))
.Parameters.Add(New OleDbParameter("@rapa", Label13.Text))
End With
con.Open()
cmd.ExecuteNonQuery()
con.Close()
Catch sqlExc As OleDbException
MessageBox.Show(sqlExc.ToString, "SQL Exception Error!", _
MessageBoxButtons.OK, MessageBoxIcon.Error)
Catch exc As Exception
End Try
' MessageBox.Show("عملیات ثبت انجام شد", "جزیره", MessageBoxButtons.OK, MessageBoxIcon.Information)
''''''''''''''''''''''''
con = New OleDbConnection("provider=microsoft.jet.oledb.4.0 ; data source=" & Application.StartupPath() & "\dbj.mdb")
Try
Dim strSQL As String = _
"INSERT INTO nafar (da,ma,sa,taf,maon,koma,fam,bed,rapa)" & _
"VALUES (@da,@ma,@sa,@taf,@maon,@koma,@fam,@bed,@rapa)"
Dim cmd As New OleDbCommand(strSQL, con)
With cmd
.Parameters.Add(New OleDbParameter("@da", TextBox22.Text))
.Parameters.Add(New OleDbParameter("@ma", TextBox23.Text))
.Parameters.Add(New OleDbParameter("@sa", TextBox24.Text))
.Parameters.Add(New OleDbParameter("@taf", TextBox3.Text))
.Parameters.Add(New OleDbParameter("@maon", TextBox8.Text))
.Parameters.Add(New OleDbParameter("@koma", TextBox13.Text))
.Parameters.Add(New OleDbParameter("@fam", TextBox18.Text))
.Parameters.Add(New OleDbParameter("@bed", TextBox27.Text))
.Parameters.Add(New OleDbParameter("@rapa", Label13.Text))
End With
con.Open()
cmd.ExecuteNonQuery()
con.Close()
Catch sqlExc As OleDbException
MessageBox.Show(sqlExc.ToString, "SQL Exception Error!", _
MessageBoxButtons.OK, MessageBoxIcon.Error)
Catch exc As Exception
End Try
' MessageBox.Show("عملیات ثبت انجام شد", "جزیره", MessageBoxButtons.OK, MessageBoxIcon.Information)
''''''''''''''''''''''''
con = New OleDbConnection("provider=microsoft.jet.oledb.4.0 ; data source=" & Application.StartupPath() & "\dbj.mdb")
Try
Dim strSQL As String = _
"INSERT INTO nafar (da,ma,sa,taf,maon,koma,fam,bed,rapa)" & _
"VALUES (@da,@ma,@sa,@taf,@maon,@koma,@fam,@bed,@rapa)"
Dim cmd As New OleDbCommand(strSQL, con)
With cmd
.Parameters.Add(New OleDbParameter("@da", TextBox22.Text))
.Parameters.Add(New OleDbParameter("@ma", TextBox23.Text))
.Parameters.Add(New OleDbParameter("@sa", TextBox24.Text))
.Parameters.Add(New OleDbParameter("@taf", TextBox4.Text))
.Parameters.Add(New OleDbParameter("@maon", TextBox9.Text))
.Parameters.Add(New OleDbParameter("@koma", TextBox14.Text))
.Parameters.Add(New OleDbParameter("@fam", TextBox19.Text))
.Parameters.Add(New OleDbParameter("@bed", TextBox27.Text))
.Parameters.Add(New OleDbParameter("@rapa", Label13.Text))
End With
con.Open()
cmd.ExecuteNonQuery()
con.Close()
Catch sqlExc As OleDbException
MessageBox.Show(sqlExc.ToString, "SQL Exception Error!", _
MessageBoxButtons.OK, MessageBoxIcon.Error)
Catch exc As Exception
End Try
' MessageBox.Show("عملیات ثبت انجام شد", "جزیره", MessageBoxButtons.OK, MessageBoxIcon.Information)
con = New OleDbConnection("provider=microsoft.jet.oledb.4.0 ; data source=" & Application.StartupPath() & "\dbj.mdb")
Try
Dim strSQL As String = _
"INSERT INTO nafar (da,ma,sa,taf,maon,koma,fam,bed,rapa)" & _
"VALUES (@da,@ma,@sa,@taf,@maon,@koma,@fam,@bed,@rapa)"
Dim cmd As New OleDbCommand(strSQL, con)
With cmd
.Parameters.Add(New OleDbParameter("@da", TextBox22.Text))
.Parameters.Add(New OleDbParameter("@ma", TextBox23.Text))
.Parameters.Add(New OleDbParameter("@sa", TextBox24.Text))
.Parameters.Add(New OleDbParameter("@taf", TextBox5.Text))
.Parameters.Add(New OleDbParameter("@maon", TextBox10.Text))
.Parameters.Add(New OleDbParameter("@koma", TextBox15.Text))
.Parameters.Add(New OleDbParameter("@fam", TextBox20.Text))
.Parameters.Add(New OleDbParameter("@bed", TextBox27.Text))
.Parameters.Add(New OleDbParameter("@rapa", Label13.Text))
End With
con.Open()
cmd.ExecuteNonQuery()
con.Close()
Catch sqlExc As OleDbException
MessageBox.Show(sqlExc.ToString, "SQL Exception Error!", _
MessageBoxButtons.OK, MessageBoxIcon.Error)
Catch exc As Exception
End Try
MessageBox.Show("عملیات ثبت انجام شد", "جزیره", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
Li1.Items.Clear()
Li2.Items.Clear()
naeeme
دوشنبه 07 مرداد 1387, 09:22 صبح
یعنی می خواین اگه مثلا 20 تا textbox داشته باشین و مثلا 4 تاش پر بود، 4 رکورد و اگه 15 تاش پر بود 15 رکورد اضافه بشه و این همه شرط و کد تکراری گذاشته نشه؟
اگه درست فهمیده باشم، از این کد می تونین استفاده کنین. یعنی یک حلقه که براساس کنترلهای موجود در فرمتون هست و هر کنترلی که از جنس تکست باکس بود رو بررسی می کنه



For Each obj As Windows.Forms.Control In Me.Controls
If obj.GetType().Name = "TextBox" Then
If String.IsNullOrEmpty(CType(obj, TextBox).Text) Then
'کدهای مورد نظر
End If
End If
Next
arsalansalar
دوشنبه 07 مرداد 1387, 09:38 صبح
یعنی می خواین اگه مثلا 20 تا textbox داشته باشین و مثلا 4 تاش پر بود، 4 رکورد و اگه 15 تاش پر بود 15 رکورد اضافه بشه و این همه شرط و کد تکراری گذاشته نشه؟
اگه درست فهمیده باشم، از این کد می تونین استفاده کنین. یعنی یک حلقه که براساس کنترلهای موجود در فرمتون هست و هر کنترلی که از جنس تکست باکس بود رو بررسی می کنه



For Each obj As Windows.Forms.Control In Me.Controls




If obj.GetType().Name = "TextBox" Then

If String.IsNullOrEmpty(CType(obj, TextBox).Text) Then
'کدهای مورد نظر
End If
End If

Next

دوست عزيزم در قسمتي كه شما كدهاي مورد نظر را نوشتيد من بايد دستورات insert را بنويسم؟
naeeme
دوشنبه 07 مرداد 1387, 09:50 صبح
دوست عزيزم در قسمتي كه شما كدهاي مورد نظر را نوشتيد من بايد دستورات insert را بنويسم؟
[/LEFT]
آره . در واقع اون چند خطی که من نوشتم، میان تمام کنترلهایی که رو فرمتون هست رو بررسی می کنن، هر کدوم که از جنس TextBox بود رو میگیرن و چون برای شما مهمه که حتما این textbox ها پر باشن، پر بودن رو بررسی می کنه و اگه پر بود، حالا دستورات Insert شما اجرا میشه.

-->>

If String.IsNullOrEmpty(CType(obj, TextBox).Text)
باید به

If Not String.IsNullOrEmpty(CType(obj, TextBox).Text)
تغییر پیدا کنه( من اشتباه نوشتم) این دستوری که در حال حاضر هست، اگه خالی باشه، عملیات اجرا میشه!
<<--