سلام
یک دیتا گرید دارم که با استفاده از یک حلقه اطلاعاتش رو از دیتاگرید دیگری دریافت می کنه
حالا چطوری اطلاعات دیتا گرید رو در بانک ذخیره کنم؟
توجه داشته باشید که این دیتاگرید به بانک وصل نیست.
Printable View
سلام
یک دیتا گرید دارم که با استفاده از یک حلقه اطلاعاتش رو از دیتاگرید دیگری دریافت می کنه
حالا چطوری اطلاعات دیتا گرید رو در بانک ذخیره کنم؟
توجه داشته باشید که این دیتاگرید به بانک وصل نیست.
شما بهتر هست اطلاعات خود را به یک دیتا تیبل وصل کنی بعد اطلاعات موجود در دیتا تیبل را در بانک ذخیره کنی
یا یک روش سخت تر اینه که با استفاده از For اطلاعات را در بانک ذخیره کنی
سلامنقل قول:
نوشته شده توسط ebrahimv
چطوری دیتا گرید رو به دیتا تیبل وصل کنم؟
اطلاعات تو دیتا گریدند
من هم همیشه از حلقه استفاده میکنم. اگر راه بهتری میدونید لطف کنید بگید؟
نقل قول:
نوشته شده توسط viper2009
اگه به مثال resturan که قبلا برات فرستاده بودم نگاه میکردی جواب سوالت توش بود
For i AsInteger = 0 To DataGridView1.Rows.Count - 2
If DataGridView1.Rows(i).Cells(0).Value.ToString <> ""Then
Ds = Fill("select * from jozsefaresh", "jozsefaresh")
Dim dt As DataTable = Ds.Tables("jozsefaresh")
Dim newRow As DataRow
newRow = dt.NewRow()
newRow("id") = Get_ID("select max(id) from jozsefaresh") + 1
newRow("idsefaresh") = idsef
newRow("idfoodsample") = DataGridView1.Rows(i).Cells("samplefood").Value
newRow("tedad") = DataGridView1.Rows(i).Cells("tedad").Value
newRow("price") = DataGridView1.Rows(i).Cells("price").Value
dt.Rows.Add(newRow)
Da.Update(Ds, "jozsefaresh")
EndIf
Next
[quote=saadi2;875017]اگه به مثال resturan که قبلا برات فرستاده بودم نگاه میکردی جواب سوالت توش بود
اتفاقاً نگاه کردم جای بحث داره
آخه مشکل اینه که این دیتا گرید به هیچ جدولی وصل نیست درصورتی که اون مثال شما مستقیماٌ وصل می باشد
راهی که دوستمون saadi2 جان گفتن همون استفاده از حلقه هست
میشه راه دوم رو بگید. ممنون میشمنقل قول:
شما بهتر هست اطلاعات خود را به یک دیتا تیبل وصل کنی بعد اطلاعات موجود در دیتا تیبل را در بانک ذخیره کنی
یا یک روش سخت تر اینه که با استفاده از For اطلاعات را در بانک ذخیره کنی
دوست عزیز
درود
امیدوارم که جواب کارتون رو بده
Try
Dim Str AsString = "Select * From Tbl"
Dim Da = New SqlClient.SqlDataAdapter(Str, Con)
Dim Scb AsNew SqlClient.SqlCommandBuilder(Da)
Da.Update(Ds, "Tbl")
Ds.Clear()
Da.Fill(Ds, "Tbl")
Dgv.DataSource = Ds.Tables("Tbl")
MsgBox(" اطلاعات ثبت شد")
Catch ex As Exception
MsgBox(ex.Message)
EndTry