منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
خطأ في الاتصال - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=9134)

خطأ في الاتصال - abdoawad - 02-06-13

قمت بانشاء قاعدة بيانات اسمها db1 وكلمة السر الخاصة بها هي tel2789942 ولكن عند تنفيذ البرنامج يظهر رسالة خطأ فما هو سبب رسالة الخطأ

خطأ في الاتصال - trustmeee - 03-06-13

abdoawad كتب :قمت بانشاء قاعدة بيانات اسمها db1 وكلمة السر الخاصة بها هي tel2789942 ولكن عند تنفيذ البرنامج يظهر رسالة خطأ فما هو سبب رسالة الخطأ
حاول تجنب وضع اكواد في حدث اقلاع الفورم او في منطقة انشاء اعضاء الفورم
غالبا السبب هو connection string
لا تستخدم application.startuppath في منطقة تكوين اعضاء الفورم
ولو كنت ستعرف ال connection string في هذه المنطقة فاستخدم بدلا من ذلك
كود :
Public connection_string As String = "Data Source=|DataDirectory|db1.mdb"
واستخدم ال break points اثناء عملية debugging لتعرف متى حدث الخطا

خطأ في الاتصال - Sajad - 03-06-13

السلام عليكم

أخي العزيز عدل الى :

PHP كود :
Imports System.Data    '  فضاء الاسماء 
Imports System.Data.OleDb
Public Class Form1
    Public ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source =" & _
Application.StartupPath & "\db1.mdb ;user id=admin ; jet oledb:database password=tel2789942 ;"
    Public CON As New OleDbConnection(ConStr)
    Public DS As New DataSet
    Public SQLstr As String = "SELECT * FROM table1 "



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


        Try
            Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, CON)
            CON.Open()
            DS = New DataSet()
            DataAdapter1.Fill(DS, "table1")
            DataGridView1.DataSource = DS.Tables(0)
            DataGridView1.AllowUserToAddRows = False

            CON.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
End Class 

الخطأ كان في كلمة table حيث انك كنت مسمي الجدول table1 وفي الكود كاتب tabel او tabel1 وهذا خطأ كبير

لاحظ الكود بتمعن

موفق ان شاءالله