[ashfgsm]

السلام عليكم 

عند ربط مشروعي مع الاكسس عن طريق data source 

يعطي مشكلة 

could not  retrieve schema information for table or view

---

ارجو حل مشكلتي لانها ارهقتني كثيرا

---

أرجو الرد على سؤالي لانني محتاجة كثيرا

[ashfgsm]

ارجو من الخبراء الرد

[ashfgsm]

الشكر الجزيل أخي على الرد
لقد جربت الحل و لم ينفع

المشكلة ان الفيجوال بيسك يقرأ قاعدة البيانات و الجدول

ارجو حل مشكلتي في هذا المنتدى الرائع جدا

انا استخدم:
ويندوز 10 64 bit
فيجوال بيسك 2017
اوفيس 2016 64 bit

[ashfgsm]

شكرا أخي على الرد

هل هنالك علاقة بين الاكسس و نسخة Microsoft SQL server لانني هذه المشكلة تظهر عند الربط مع الاكسس

[ashfgsm]

شكرا لك اخي 

هذه المشكلة تم حلها بحذف فيجوال ستوديو 2017  وتثبيت فيجوال ستوديو 2015

لكن ظهرت مشكلة جديدة وهي كما بالصورة المرفقه

ارجو الحل

[ashfgsm]

الرجاء حـــــــل هذه المشكلة

[ashfgsm]

السلام عليكم 

لقد قمت برفع المشروع 

ارجو ايجاد المشكلة

---

السلام عليكم 

لقد قمت برفع المشروع 

ارجو ايجاد المشكلة

[silverlight]

ممكن توضح المشروع فكرته ايه

[ashfgsm]

شكرا على الرد أخي

فكرة المشروع هو ادخال الطلاب لدي على قاعدة البيانات اكسس 2013 عن طريق واجهة عملتها على الفيجوال بيسك دوت نت 2015

لكن عند عمل save يعطى هذا الخطأ
و لقد عجزت حتى اعرف اين الخلل
ارجو مساعدتي اخي

[a.ahmed]

PHP كود :

Imports System.Data.OleDb
Module connection_load
    Public Conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\ExamDB.accdb")
    Public UsersDT As New DataTable
    Public UsersDA As New OleDbDataAdapter
    Public mynewIDUsers As Integer

    Public Sub Load_users_InDirect()
        UsersDT.Clear()
        UsersDA = New OleDbDataAdapter("select * from Users", Conn)
        UsersDA.Fill(UsersDT)
    End Sub

    Public Sub Code_Users_InDirect()
        Dim dt As New DataTable
        Dim da As New OleDbDataAdapter("Select MAX(UserID) From Users", Conn)
        da.Fill(dt)
        If IsDBNull(dt(0)(0)) = True Then
            mynewIDUsers = 1
        Else
            mynewIDUsers = dt(0)(0) + 1
        End If
    End Sub

    Public Sub Load_users_InDirect(dgv As DataGridView)
        UsersDT.Clear()
        UsersDA = New OleDbDataAdapter("select * from Users", Conn)
        UsersDA.Fill(UsersDT)
        dgv.AutoGenerateColumns = False
        dgv.DataSource = UsersDT
    End Sub




End Module 


PHP كود :

Imports System.Data.OleDb

Public Class Form1
    Public Sub NewUser()
        Code_Users_InDirect()
        UserID.Text = mynewIDUsers
        UserFullName.Text = ""
        UserGender.Text = ""
        'UserDate.Value = Now.Date
        UserName.Text = ""
        UserPassword.Text = ""
        UserType.Text = ""
        UserPhone.Text = ""
        UserAddress.Text = ""
        UserNow.Text = ""

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        NewUser()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If UserFullName.Text = Nothing Or UserName.Text = Nothing Or UserPassword.Text = Nothing Then
            MsgBox("يرجى ملىء البيانات المطلوبة المشار عليها بالرمز * ", MsgBoxStyle.Critical, "بيانات فارغة  ")
            Return
        End If
        Try
            Dim cmd As New OleDbCommand(String.Empty, Conn)

            cmd.CommandText = "Select COUNT(*) From Users where UserFullName=@fname"
            cmd.Parameters.Clear()
            cmd.Parameters.AddWithValue("@fname", UserFullName.Text.Trim)
            If Conn.State <> ConnectionState.Open Then Conn.Open()
            If cmd.ExecuteScalar > 0 Then
                MsgBox("المستخدم موجود مسبقا", MsgBoxStyle.Critical, "بيانات مكررة")
            Else

                cmd.CommandText =
                    "INSERT INTO Users(UserAddress,UserDate,UserFullName,UserGender,UserID,UserName,UserPassword,UserPhone,UserType,UserNow)" & _
                    "VALUES (@address,@dt,@fname,@gender,@id,@name,@password,@phone,@type,@now)"

                cmd.Parameters.Clear()
                cmd.Parameters.AddWithValue("@address", UserAddress.Text)
                cmd.Parameters.AddWithValue("@dt", Today)
                cmd.Parameters.AddWithValue("@fname", UserFullName.Text)
                cmd.Parameters.AddWithValue("@gender", UserGender.Text)
                cmd.Parameters.AddWithValue("@id", UserID.Text)
                cmd.Parameters.AddWithValue("@name", UserName.Text)
                cmd.Parameters.AddWithValue("@password", UserPassword.Text)
                cmd.Parameters.AddWithValue("@phone", UserPhone.Text)
                cmd.Parameters.AddWithValue("@type", UserType.Text)
                cmd.Parameters.AddWithValue("@now", UserNow.Text)

                If cmd.ExecuteNonQuery > 0 Then
                    MsgBox("تم الحفظ بنجاح", MsgBoxStyle.Information, "تأكيد الحفظ")
                    Load_users_InDirect()
                End If

            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            Conn.Close()
        End Try
    End Sub

End Class