misagh1370
سه شنبه 18 تیر 1392, 17:24 عصر
سلام
اساتید گرامی خاصیت identity کلید اصلی جدولی true است .یعنی به طور تصادفی عدد تولید میکنه.
این کد درجم هستش.چون آیتم صفرم مربوط به کلید اصلی هستش آیتم ها رو از شماره یک شروع کردم
اما از آیتم اولم خطا میگیره . به نظرتون مشکل از کجاست؟خواهشا راهنمایی کنید
SqlDataAdapter1.InsertCommand.Parameters.Item(1).V alue = txt_mellicode.Text
SqlDataAdapter1.InsertCommand.Parameters.Item(2).V alue = Txt_fname.Text
SqlDataAdapter1.InsertCommand.Parameters.Item(3).V alue = Txt_lastname.Text
SqlDataAdapter1.InsertCommand.Parameters.Item(4).V alue = Txt_fathername.Text
SqlDataAdapter1.InsertCommand.Parameters.Item(5).V alue = mtxt_birthday.Text
SqlDataAdapter1.InsertCommand.Parameters.Item(6).V alue = txt_mahaletavalod.Text
SqlDataAdapter1.InsertCommand.Parameters.Item(7).V alue = Cmb_tahsilat.Text
SqlDataAdapter1.InsertCommand.Parameters.Item(8).V alue = cmbeshteghal.Text
SqlDataAdapter1.InsertCommand.Parameters.Item(9).V alue = txt_address.Text
SqlDataAdapter1.InsertCommand.Parameters.Item(10). Value = Txt_telno.Text
Dim strmemory As New MemoryStream
Picemployee.Image.Save(strmemory, Imaging.ImageFormat.Jpeg)
Dim buffer(CInt(strmemory.Length - 1)) As Byte
strmemory.Position = 0
strmemory.Read(buffer, 0, CInt(strmemory.Length))
SqlDataAdapter1.InsertCommand.Parameters.Item(11). Value = buffer
If SqlConnection1.State = ConnectionState.Closed Then
SqlConnection1.Open()
End If
SqlDataAdapter1.InsertCommand.ExecuteNonQuery()
ProjectDataSet1.employee.Clear()
SqlDataAdapter1.Fill(ProjectDataSet1.employee)
SqlConnection1.Close()
اساتید گرامی خاصیت identity کلید اصلی جدولی true است .یعنی به طور تصادفی عدد تولید میکنه.
این کد درجم هستش.چون آیتم صفرم مربوط به کلید اصلی هستش آیتم ها رو از شماره یک شروع کردم
اما از آیتم اولم خطا میگیره . به نظرتون مشکل از کجاست؟خواهشا راهنمایی کنید
SqlDataAdapter1.InsertCommand.Parameters.Item(1).V alue = txt_mellicode.Text
SqlDataAdapter1.InsertCommand.Parameters.Item(2).V alue = Txt_fname.Text
SqlDataAdapter1.InsertCommand.Parameters.Item(3).V alue = Txt_lastname.Text
SqlDataAdapter1.InsertCommand.Parameters.Item(4).V alue = Txt_fathername.Text
SqlDataAdapter1.InsertCommand.Parameters.Item(5).V alue = mtxt_birthday.Text
SqlDataAdapter1.InsertCommand.Parameters.Item(6).V alue = txt_mahaletavalod.Text
SqlDataAdapter1.InsertCommand.Parameters.Item(7).V alue = Cmb_tahsilat.Text
SqlDataAdapter1.InsertCommand.Parameters.Item(8).V alue = cmbeshteghal.Text
SqlDataAdapter1.InsertCommand.Parameters.Item(9).V alue = txt_address.Text
SqlDataAdapter1.InsertCommand.Parameters.Item(10). Value = Txt_telno.Text
Dim strmemory As New MemoryStream
Picemployee.Image.Save(strmemory, Imaging.ImageFormat.Jpeg)
Dim buffer(CInt(strmemory.Length - 1)) As Byte
strmemory.Position = 0
strmemory.Read(buffer, 0, CInt(strmemory.Length))
SqlDataAdapter1.InsertCommand.Parameters.Item(11). Value = buffer
If SqlConnection1.State = ConnectionState.Closed Then
SqlConnection1.Open()
End If
SqlDataAdapter1.InsertCommand.ExecuteNonQuery()
ProjectDataSet1.employee.Clear()
SqlDataAdapter1.Fill(ProjectDataSet1.employee)
SqlConnection1.Close()