التنبيهات التالية ظهرت :
Warning [2] count(): Parameter must be an array or an object that implements Countable - Line: 864 - File: showthread.php PHP 7.4.33 (Linux)
File Line Function
/showthread.php 864 errorHandler->error



تقييم الموضوع :
  • 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


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة:


الردود في هذا الموضوع
حل مشكلة هذا الكود - بواسطة imam_boune - 23-11-18, 12:29 PM
RE: حل مشكلة هذا الكود - بواسطة asemshahen5 - 23-11-18, 01:03 PM
RE: حل مشكلة هذا الكود - بواسطة imam_boune - 23-11-18, 02:13 PM


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


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