منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
ممكن حل مشكله عدم الحفظ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ممكن حل مشكله عدم الحفظ (/showthread.php?tid=41146)



ممكن حل مشكله عدم الحفظ - فراس محي - 03-04-22

السلام عليكم عندي مشكله بالحفظ تضهر عباره خطا في عباره الانسرت 
هذا كود الحفظ 
PHP كود :
cmd = New OleDbCommand("insert into INPUT(symble, name,class,nots)values(@symble, @name,@class,@nots)"Con)
 
           With cmd.Parameters.AddWithValue("@symble"TextBox1.Text)
 
               cmd.Parameters.AddWithValue("@name"TextBox2.Text)
 
               cmd.Parameters.AddWithValue("@class"ComboBox1.Text)
 
               cmd.Parameters.AddWithValue("@nots"TextBox3.Text)

 
               MsgBox("تم حفظ المستند بنجاح")
 
               TextBox1.Text ""
 
               TextBox2.Text ""
 
               'ComboBox2.Text = ""
                '
ComboBox3.Text ""
 
               
            End With
            Con
.Open()
 
       cmd.ExecuteNonQuery()
 
           Con.Close() 

(03-04-22, 11:10 AM)فراس محي كتب : السلام عليكم عندي مشكله بالحفظ تضهر عباره خطا في عباره الانسرت 
هذا كود الحفظ 
PHP كود :
Imports System.Data

Imports System
.Data.OleDb
Dim Da 
As OleDbDataAdapter
    Dim cmd 
As OleDbCommand
    Dim Dt 
As New DataTable
    Dim ds 
As New DataSet
    Dim Con 
As OleDbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=moistore1.accdb")
 
cmd = New OleDbCommand("insert into INPUT(symble, name,class,nots)values(@symble, @name,@class,@nots)"Con)
 
           With cmd.Parameters.AddWithValue("@symble"TextBox1.Text)
 
               cmd.Parameters.AddWithValue("@name"TextBox2.Text)
 
               cmd.Parameters.AddWithValue("@class"ComboBox1.Text)
 
               cmd.Parameters.AddWithValue("@nots"TextBox3.Text)

 
               MsgBox("تم حفظ المستند بنجاح")
 
               TextBox1.Text ""
 
               TextBox2.Text ""
 
               'ComboBox2.Text = ""
                '
ComboBox3.Text ""
 
               
            End With
            Con
.Open()
 
       cmd.ExecuteNonQuery()
 
           Con.Close() 



RE: ممكن حل مشكله عدم الحفظ - فراس محي - 03-04-22

تم حل المشكله بوضع اسم الجدول بين قوسين [ كتب :pid='181475' dateline='1648969844']



RE: ممكن حل مشكله عدم الحفظ - Jounior_P - 03-04-22

انصحك بتغيير اسم الجدول "INPUT" لأنه من الاسماء المحجوزة وذلك تفاديا لظهور اي عيوب اخرى


RE: ممكن حل مشكله عدم الحفظ - mohamedassim - 18-06-22

السلام عليكم
اخي فراس كود الحفظ الذي استخدمته اعلاه يستخدم في حالة الاتصال المتصل ام المنفصل ؟