a1b2uu
چهارشنبه 31 شهریور 1389, 11:08 صبح
سلام
در جدول گرید ویو کاربر اطلاعات دارو یی را وارد می کند بعد از پر کردن هر ردیف باید دکمه ثبت روبزنه اگه بخام کاربر همه ردیف ها رو وارد کنه و فقط 1 بار ثبت رو بزنه چه کدی باید بنویسم؟(اینم کد برنامه که سطر جاری را چند بار ذخیره میکنه)
For i = 0 To DataGridView2.RowCount - 1
Dim a AsNew SqlConnection
a.ConnectionString = "Data Source=localhost;Initial Catalog= Matab;Integrated Security=True"
Dim b AsNew SqlCommand
Dim c AsNew SqlDataAdapterc.SelectCommand = 2
c.SelectCommand.CommandType = CommandType.Text
c.SelectCommand.CommandText = "use matab select * from pres"
c.SelectCommand.Connection = a
Dim d AsNew DataSet
d.Clear()
c.Fill(d)
b.Connection = a
b.CommandType = CommandType.Text
b.CommandText = "use matab insert into pres (PID,prestext,date) values ('" & DataGridView2.CurrentRow.Cells(0).Value & "','" & DataGridView2.R.Cells(1).Value & " ','" & DataGridView2.CurrentRow.Cells(2).Value & " ' )"
b.Connection = a
b.Connection.Open()
b.ExecuteNonQuery()
b.Connection.Close()
MsgBox(" ")
Next
در جدول گرید ویو کاربر اطلاعات دارو یی را وارد می کند بعد از پر کردن هر ردیف باید دکمه ثبت روبزنه اگه بخام کاربر همه ردیف ها رو وارد کنه و فقط 1 بار ثبت رو بزنه چه کدی باید بنویسم؟(اینم کد برنامه که سطر جاری را چند بار ذخیره میکنه)
For i = 0 To DataGridView2.RowCount - 1
Dim a AsNew SqlConnection
a.ConnectionString = "Data Source=localhost;Initial Catalog= Matab;Integrated Security=True"
Dim b AsNew SqlCommand
Dim c AsNew SqlDataAdapterc.SelectCommand = 2
c.SelectCommand.CommandType = CommandType.Text
c.SelectCommand.CommandText = "use matab select * from pres"
c.SelectCommand.Connection = a
Dim d AsNew DataSet
d.Clear()
c.Fill(d)
b.Connection = a
b.CommandType = CommandType.Text
b.CommandText = "use matab insert into pres (PID,prestext,date) values ('" & DataGridView2.CurrentRow.Cells(0).Value & "','" & DataGridView2.R.Cells(1).Value & " ','" & DataGridView2.CurrentRow.Cells(2).Value & " ' )"
b.Connection = a
b.Connection.Open()
b.ExecuteNonQuery()
b.Connection.Close()
MsgBox(" ")
Next