samira222
دوشنبه 06 اسفند 1386, 09:57 صبح
من برای add کردن یک رکورد جدید کد زیر رو در formload نوشتم .
peshkey=0
Dim con As SqlConnection
Dim ss As Integer
Dim strcon As String
strcon = " Data Source=.;Integrated Security=True;Initial Catalog=parvandeh"
con = New SqlConnection(strcon)
Dim cmd As New SqlCommand("select max(key1)+1 from Moshakhasatefarde", con)
con.Open()
ss = cmd.ExecuteScalar
TextBox1.Text = ss.ToString
con.Close()
peshkey = ss.ToString
و روی دکمه اضافه هم این کد رو نوشتم
TextBox10.Text = peshkey.ToString
Dim con1 As SqlConnection
Dim strcon1 As String
strcon1 = " Data Source=.;Integrated Security=True;Initial Catalog=parvandeh"
con1 = New SqlConnection(strcon1)
Dim cmd1 As New SqlCommand("INSERT INTO Moshakhasatefarde ( " & "name1," & "family," & "configuration_num," & "orientation," & "last_madrak," & "type_stekhdam," & "date_stekhdam," & "organezation_post" & " ) values ('" & TextBox2.Text & "',' " & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "','" & ComboBox1.Text & "','" & TextBox9.Text & "')", con1)
con1.Open()
cmd1.ExecuteNonQuery()
con1.Close()
ولی برای بعضی رکوردها درست کار نمی کنه . مثلا برای ایجاد رکورد 38 شماره key جدولها رو قاطی می کنه . فکر می کنین اشکال از کجاست !!!!!!!؟؟؟؟؟؟؟:عصبانی++::گریه:
peshkey=0
Dim con As SqlConnection
Dim ss As Integer
Dim strcon As String
strcon = " Data Source=.;Integrated Security=True;Initial Catalog=parvandeh"
con = New SqlConnection(strcon)
Dim cmd As New SqlCommand("select max(key1)+1 from Moshakhasatefarde", con)
con.Open()
ss = cmd.ExecuteScalar
TextBox1.Text = ss.ToString
con.Close()
peshkey = ss.ToString
و روی دکمه اضافه هم این کد رو نوشتم
TextBox10.Text = peshkey.ToString
Dim con1 As SqlConnection
Dim strcon1 As String
strcon1 = " Data Source=.;Integrated Security=True;Initial Catalog=parvandeh"
con1 = New SqlConnection(strcon1)
Dim cmd1 As New SqlCommand("INSERT INTO Moshakhasatefarde ( " & "name1," & "family," & "configuration_num," & "orientation," & "last_madrak," & "type_stekhdam," & "date_stekhdam," & "organezation_post" & " ) values ('" & TextBox2.Text & "',' " & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "','" & ComboBox1.Text & "','" & TextBox9.Text & "')", con1)
con1.Open()
cmd1.ExecuteNonQuery()
con1.Close()
ولی برای بعضی رکوردها درست کار نمی کنه . مثلا برای ایجاد رکورد 38 شماره key جدولها رو قاطی می کنه . فکر می کنین اشکال از کجاست !!!!!!!؟؟؟؟؟؟؟:عصبانی++::گریه: