تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
حل مشكلة هذا الكود
#1
مرحبا بالاساتذة  
لدي مشكلة في كود الاضافة

هذا الكود يقوم بالاضافة الى قاعدة البيانات من نوع اكسس
ارجو ممن لديه القدرة مساعدتي في حل هذه المشكلة

=================================================
==================================================

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


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة:
#2
كود :
   Public Sub InsertNewRowIn_info(Lblid As Integer, Txtnom As String, Txttel As String, Txtwhats As String, Txtemail As String, Txtnotes As String)
       Dim CmdInsert As New OleDb.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 = ConnectionState.Closed Then con.Open()
       CmdInsert.ExecuteNonQuery()
       MsgBox("تم إضافة السجل بنجاح", MsgBoxStyle.Information, "حفظ")
       CmdInsert = Nothing
   End Sub

كود :
   Public Sub InsertNewRowIn_info(Lblid As Integer, Txtnom As String, Txttel As String, Txtwhats As String, Txtemail As String, Txtnotes As String)
       Dim CmdInsert As New OleDb.OleDbCommand
       With CmdInsert
           .Connection = con
           .CommandType = CommandType.Text
           .CommandText = "INSERT INTO info (id,nom,tel,whats,email,notes)VALUES(" & Lblid & ",'" & Txtnom & "','" & Txttel & "','" & Txtwhats & "','" & Txtemail & "','" & Txtnotes & "')"
       End With
       If con.State = ConnectionState.Closed Then con.Open()
       CmdInsert.ExecuteNonQuery()
       MsgBox("تم إضافة السجل بنجاح", MsgBoxStyle.Information, "حفظ")
       CmdInsert = Nothing
   End Sub
الرد
تم الشكر بواسطة: imam_boune , elgokr
#3
شكرا يا استاذ asemshahen5

تم حل المشكلة

جزاك الله خيرا
الرد
تم الشكر بواسطة: elgokr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مشكلة Data Type Mismatch in criteria expression basboos95 0 22 منذ 7 ساعة مضت
آخر رد: basboos95
  مساعده شباب اريد تعديل الكود يشتغل عليDataGridView بدل ListView -اين المحترفين Fransesco 3 58 22-02-19, 09:22 PM
آخر رد: elgokr
  مشكلة في تصدير الداتا الى PDF alshandodi 3 66 22-02-19, 07:58 PM
آخر رد: elgokr
Photo مشكلة في تسطيب كريستال ريبورت عند العميل صالح حمادي 4 78 21-02-19, 01:34 PM
آخر رد: elgokr
  [VB.NET] مساعده في تصحيح الكود dubai.eig 4 99 20-02-19, 05:48 PM
آخر رد: elgokr
  [VB.NET] مشكلة فى عرض محتويات DataGridView فى TextBox mr_hso 8 169 18-02-19, 10:52 PM
آخر رد: nabil.1710
  مشكلة كود استيراد ملف اكسيل يقراء لغة واحدة فقط new_programer 4 75 18-02-19, 02:04 AM
آخر رد: new_programer
  مشكلة Hassan.syria 4 111 15-02-19, 11:04 PM
آخر رد: Hassan.syria
  [VB.NET] مشكلة في فتح الفورم اسامه الهرماوي 1 63 15-02-19, 04:45 AM
آخر رد: princelovelorn
  [كود] أريد حل مشكلة في إدخال الوقت و التاريخ lolo queen 17 6,157 15-02-19, 03:01 AM
آخر رد: اسامه الهرماوي

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم