23-11-18, 12:29 PM
مرحبا بالاساتذة
لدي مشكلة في كود الاضافة
هذا الكود يقوم بالاضافة الى قاعدة البيانات من نوع اكسس
ارجو ممن لديه القدرة مساعدتي في حل هذه المشكلة
=================================================
==================================================
Public Sub InsertNewRowIn_info(ByVal Lblid As Long,ByVal Txtnom As String,ByVal Txttel As String,ByVal Txtwhats As String,ByVal Txtemail As String,ByVal Txtnotes As String)
Dim CmdInsert As New OleDbCommand
With CmdInsert
.Connection = Con
.CommandType = CommandType.Text
.CommandText = "Insert Into info (id , nom , tel , whats , email , notes)values( @id , @nom , @tel , @whats , @email , @notes)
.Parameters.Clear()
.Parameters.AddWithValue("@id", OleDbType.Integer).Value = Lblid
.Parameters.AddWithValue("@nom", OleDbType.VarChar).Value = Txtnom
.Parameters.AddWithValue("@tel", OleDbType.VarChar).Value = Txttel
.Parameters.AddWithValue("@whats", OleDbType.VarChar).Value = Txtwhats
.Parameters.AddWithValue("@email", OleDbType.VarChar).Value = Txtemail
.Parameters.AddWithValue("@notes", OleDbType.VarChar).Value = Txtnotes
End With
If Con.State = 1 Then Con.Close()
Con.Open()
CmdInsert.ExecuteNonQuery()
Con.Close()
MsgBox("تم إضافة السجل بنجاح", MsgBoxStyle.Information, "حفظ")
CmdInsert = Nothing
End Sub
لدي مشكلة في كود الاضافة
هذا الكود يقوم بالاضافة الى قاعدة البيانات من نوع اكسس
ارجو ممن لديه القدرة مساعدتي في حل هذه المشكلة
=================================================
==================================================
Public Sub InsertNewRowIn_info(ByVal Lblid As Long,ByVal Txtnom As String,ByVal Txttel As String,ByVal Txtwhats As String,ByVal Txtemail As String,ByVal Txtnotes As String)
Dim CmdInsert As New OleDbCommand
With CmdInsert
.Connection = Con
.CommandType = CommandType.Text
.CommandText = "Insert Into info (id , nom , tel , whats , email , notes)values( @id , @nom , @tel , @whats , @email , @notes)
.Parameters.Clear()
.Parameters.AddWithValue("@id", OleDbType.Integer).Value = Lblid
.Parameters.AddWithValue("@nom", OleDbType.VarChar).Value = Txtnom
.Parameters.AddWithValue("@tel", OleDbType.VarChar).Value = Txttel
.Parameters.AddWithValue("@whats", OleDbType.VarChar).Value = Txtwhats
.Parameters.AddWithValue("@email", OleDbType.VarChar).Value = Txtemail
.Parameters.AddWithValue("@notes", OleDbType.VarChar).Value = Txtnotes
End With
If Con.State = 1 Then Con.Close()
Con.Open()
CmdInsert.ExecuteNonQuery()
Con.Close()
MsgBox("تم إضافة السجل بنجاح", MsgBoxStyle.Information, "حفظ")
CmdInsert = Nothing
End Sub