تمرير عبارة sql الى الاكسس

#116 نوفمبر 2013 في 16:35 صاحب الموضوع

السلام عليكم

عندما انفذ العبارة التالية تظهر لي عبارة الخطا التي في اسفل الشفرة

            Dim ds As New DataSet
            Dim da As New OleDbDataAdapter("select * from " & TableTo.Text, accessconn)
            Dim sql As String = "INSERT INTO personalInfo (sname) VALUES('qas')" '"INSERT INTO " & TableTo.Text & " " & Addfiled & " VALUES" & AddRow
            da.SelectCommand.CommandText = sql
            ds.Clear()
            da.Fill(ds, TableTo.Text)

عبارة الخطاً

Operation must use an updateable query.

#218 نوفمبر 2013 في 15:01

تم حل المشكلة

#318 نوفمبر 2013 في 15:02

mkyh86 كتب:
تم حل المشكلة

ممكن تضع لنا الحل ... كي يستفيد باقي الاعضاء ..

لا إله إلا الله ... محمد رسول الله

لو كانت مشاركتي مفيدة و تريد تشجيعي على المزيد من العطاء , فضلا قم بتقييم المشاركة

المعرًف القديم : houssam11350_11350

من مواضيعي : ArabGenCode : مولد كود و إجراءات مخزنة و واجهات لجداول سيكوال سيرفر

#418 نوفمبر 2013 في 21:58

لاحظيت خطا اثناء عملية الاتصال بقاعدة البيانات فاثناء الاتصال استخدم الوضع المنفصل وعند تمرير عبارة اسكيوال يظهر عندي الخطا.

البرنامج التالي يعمل على عرضاسماء الجداول في كومبوبوكس واسماء الحقول في كومبوبوكس وبيانات الاكسس في داتاكرد

Public Sub accesspro(ByVal loc As TextBox, ByVal dname As TextBox, ByVal feildneeded As ComboBox, ByVal neededTable As ComboBox, ByVal d1 As DataGridView, ByVal Fieldtype As ComboBox)
accessconn.Close()
Open.FileName = ""
loc.Text = ""
dname.Text = ""
With Open
.InitialDirectory = "C:"
.Filter = " Access Database2007-2013(*.accdb)|*.accdb" 'Access Database2003(*.mdb)|*.mdb |
.Title = "Select Access Database"
.ShowDialog()
End With
loc.Text = Open.FileName ' فتح نافذة اختيار قاعدة البيانات
dname.Text = Open.SafeFileName 'اسناد اسم قاعدة البيانات الى صندوق النص
If Trim(dname.Text) = "" Then ' التاكد من انه تم اختيار قاعدة البياتات
MsgBox("لم يتم فتح قاعدة البيانات", MsgBoxStyle.Critical)
Exit Sub
End If
feildneeded.Items.Clear() 'مسح كومبوبوكس الخاص باسماء الحقول
SqCoConverter = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source = " & loc.Text 'تعريف اتصال بقاعدة بيانات
accessconn.ConnectionString = SqCoConverter
If loc.Text <> "" Then
accessconn.Open()
End If
'stat.Text = "Open"
'وضع اسماء الجداول من قاعدة البيانات في داتاتيبل
Dim tables As DataTable = accessconn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, "TABLE"})
For Each tableRow As DataRow In tables.Rows ' نقل اسماء الجداول من الداتاتيبل الى الكومبوبوكس
neededTable.Items.Add(tableRow("TABLE_NAME"))
Next
If loc.Text <> "" Then
accessconn.Close()
End If
neededTable.SelectedIndex = 0 'اختيار اول جدول ووضع اسماء حقول الجدول في الداتاكرد
Dim dt As New DataTable
Dim da As New OleDbDataAdapter("select * from " & neededTable.Text, SqCoConverter)
da.Fill(dt)
d1.DataSource = ""
' d3.DataSource = tables
d1.DataSource = dt

' Dim i As Integer ' عملية نقل اسماء الحقول الى صندوق اسماء الحقول
' For i = 0 To d1.Columns.Count - 1
'feildneeded.Items.Add(d1.Columns(i).HeaderText)
'Next
'''''''''''''''''''''''''''''''''''''''''نقل اسماء الحقول
Next

تم تعديل هذه المشاركة بواسطة mkyh86 في 18 نوفمبر 2013 في 21:59

تمرير عبارة sql الى الاكسس

مواضيع مشابهة