02-06-13, 09:48 PM
قمت بانشاء قاعدة بيانات اسمها db1 وكلمة السر الخاصة بها هي tel2789942 ولكن عند تنفيذ البرنامج يظهر رسالة خطأ فما هو سبب رسالة الخطأ
abdoawad كتب :قمت بانشاء قاعدة بيانات اسمها db1 وكلمة السر الخاصة بها هي tel2789942 ولكن عند تنفيذ البرنامج يظهر رسالة خطأ فما هو سبب رسالة الخطأحاول تجنب وضع اكواد في حدث اقلاع الفورم او في منطقة انشاء اعضاء الفورم
Public connection_string As String = "Data Source=|DataDirectory|db1.mdb"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