12-09-17, 09:27 PM
12-09-17, 09:34 PM
12-09-17, 09:44 PM
12-09-17, 09:50 PM
12-09-17, 10:02 PM
12-09-17, 10:02 PM
12-09-17, 10:04 PM
(12-09-17, 10:02 PM)امل عوض كتب : [ -> ](12-09-17, 09:50 PM)سعود كتب : [ -> ](12-09-17, 09:45 PM)امل عوض كتب : [ -> ](12-09-17, 09:34 PM)سعود كتب : [ -> ]مثال بسيط اخي مش لقيه المطلوب دا هنااااك
المطلوب موجود بس يبغى شوية تعديل
.مثل ماقال الاخ هنا
.
.
كيف تمت تعبئة الـDatagridview؟ ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ فين دا مش لاقيه
(12-09-17, 09:27 PM)امل عوض كتب : [ -> ]ياجماعه لو سمحت عايزه كود حفظ يحفظلي من داتا جريد فيو للقاعده بيانات سيكول اتمناااا مسااااااااعده
كود :
Public Class Form1
Dim str As String = "server=(Local)\sqlexpress;Initial Catalog=ForTesting;Integrated Security=True"
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
For r As Integer = 0 To Me.DataGridView1.Rows.Count - (IIf(Me.DataGridView1.AllowUserToAddRows, 2, 1))
Using con As New SqlClient.SqlConnection(str)
Using cm As New SqlClient.SqlCommand("", con)
cm.CommandText = "insert into tb(tname,age) values(@tname,@age)"
cm.Parameters.AddWithValue("@tname", Me.DataGridView1.Rows(r).Cells(0).Value)
cm.Parameters.AddWithValue("@age", Val(Me.DataGridView1.Rows(r).Cells(1).Value))
If con.State = ConnectionState.Closed Then con.Open()
cm.ExecuteNonQuery()
End Using
End Using
Next
MsgBox("Done Save")
Me.DataGridView1.Rows.Clear()
End Sub
End Class12-09-17, 10:39 PM