آمل تصحيح الخطأ الموجود في الكود

الأخ/ m00j

المشكلة في الاستعلام

INSERT INTO t2(f3) SELECT f1 FROM t1 @Eid WHERE f11=true

الخطأ بعد FROM

t1 @Eid الباراميتر بعد اسم الجدول

إذا كنت تقصد اضافة قيمة الباراميتر إلى اسم الجدول اضف + بينها

* اذا كان اعتقادي خطأ: يرجى التوضيح أكثر،، شكراً

اخي suleiman_asg

بالفعل انت فاهم بالضبط ما احتاج ,, و صححت الملاحظة الي قلت لي عنها بس ما نجحت العملية !!

"INSERT INTO table2(column3) SELECT column1 FROM table1 +  @parameter WHERE column11=true "

البارميتر هو مربع نص موجود في نموذج .

غير ترتيب السطرين:

cmd.ExecuteNonQuery()

cmd.Parameters.Add("@Eid", OleDbType.VarChar).Value = TextBox1.Text

لتصبح:

cmd.Parameters.Add("@Eid", OleDbType.VarChar).Value = TextBox1.Text

cmd.ExecuteNonQuery()

جرب اخوي يكون اسناد الباراميتر قبل جملة الاستعلام ثم أمر التنفيذ في الأخير ..

cmd.Parameters.Add("@Eid", OleDbType.VarChar).Value = TextBox1.Text

cmd.CommandText = "INSERT INTO table2(column3) SELECT column1 FROM table1 + @parameter WHERE column11=true "

cmd.ExecuteNonQuery()

أنا خارج المنزل بأمر من وزارة الداخلية ( المدام ) واول ما ارجع بجرب ورد لك وعسى الله يوفق يا رب

الله يستر ،،

أنا بقصد بالداخلية زوجتي :happy:

عارف :wacko: برضو الله يستر

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

تصحيح لجملة الاضافة في الاعلى:

"INSERT INTO table2(column3,column4) SELECT column1 FROM table1 + @parameter WHERE column2=true "

مكونات المشروع:

table1: column1 column2

table2: column3 column4

Form1: textbox1

جرب هذا

  Dim con As New OleDbConnection
        Dim cmd As New OleDbCommand
        Try
            con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\DellXPS\Desktop\mDB.accdb"

            con.Open()
            cmd.Connection = con
            cmd.CommandText = "INSERT INTO t2(f3,f4)  SELECT f1,f2 FROM " &  TextBox1.Text 
            cmd.ExecuteNonQuery() 
        Catch ex As Exception
            MessageBox.Show("Error while inserting record on table..." & ex.Message, "Insert Records")
        Finally
            con.Close()
        End Try

شكر اخي كريم وجدت مكان الخطأ وصححته الف الف الف شكر لكم جميعا والحل كالتالي :

صحيح

INSERT INTO table2(column3, column4) SELECT column1, @parameter FROM table1 WHERE column2=true

خطأ

INSERT INTO table2(column3, column4) SELECT column1+ @parameter FROM table1 WHERE column2=true

جملة الاستعلام حساسة لاستخدام الفواصل وليس علامة + في مثالي طبعا ولا ادري كيف تستخدم اشارة الجمع في جمل الاستعلام :)