21-03-14, 08:17 PM
السلام عليكم
ما الخطأ فى هذا الكود
ما الخطأ فى هذا الكود
كود :
Dim SaveDataSQl1 As String = "INSERT INTO qustions (q,a1,a2,a3,a4,at) VALUES(@q,@a1,@a2,@a3,@a4,@at)"
Dim SaveDataCMD1 As New OleDbCommand
If Con.State = ConnectionState.Closed Then
' إذا كان الاتصال مقفل
Con.Open()
With SaveDataCMD1
.Connection = Con
.CommandType = CommandType.Text
.CommandText = SaveDataSQl1
.Parameters.AddWithValue("q", TextBox1.Text)
.Parameters.AddWithValue("a1", TextBox2.Text)
.Parameters.AddWithValue("a2", TextBox3.Text)
.Parameters.AddWithValue("a3", TextBox4.Text)
.Parameters.AddWithValue("a4", TextBox5.Text)
.Parameters.AddWithValue("at", TextBox6.Text)
.ExecuteNonQuery()
.Dispose()
End With
Con.Close()
Else
' الاتصال مفتوح مسبقاً
With SaveDataCMD1
.Connection = Con
.CommandType = CommandType.Text
.CommandText = SaveDataSQl1
.Parameters.AddWithValue("q", TextBox1.Text)
.Parameters.AddWithValue("a1", TextBox2.Text)
.Parameters.AddWithValue("a2", TextBox3.Text)
.Parameters.AddWithValue("a3", TextBox4.Text)
.Parameters.AddWithValue("a4", TextBox5.Text)
.Parameters.AddWithValue("at", TextBox6.Text)
.ExecuteNonQuery()
.Dispose()
End With
Con.Close()
End If
