الاخوان الافاضل ---مساعدتكم ولك الشكر لكم

السلام عليكــم ورحمـة الله وبركاتــه

،

،

مساء الخير الاخوان الافاضل

لدي مشروع على برنامج الفجوال استديو 2005

وهو عبارة عن سجلات للفواتير والعملاء المحل

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

وتم حفظ قاعدة البيانات في مجلد المشروع في ملف

Debug

وتم الربط الكود البرمجي

التالي

-------

لكن عند التشغيل يحدث خطاء ويكون عند عند فتح الاتصال

ارجو المسااااااااااااااعده وماهو الخلل في الكود

او ما افضل طريقه لربط قاعدة بيانات مع برنامج الفجوال

علماً ان الاكواد التي تستخدم هي

السجل الاول-السجل التالي-السجل السابق-السجل الاخير

بحث -طباعة

اول مشاكرة لي معكم نفع الله بكم

ولك الشكر لكم

----------------

Imports System

Imports System.Data

Imports System.Data.OleDb

Public Class Form3

Inherits System.Windows.Forms.Form

Dim Con As New OleDb.OleDbConnection()

Dim dp As New OleDb.OleDbDataAdapter

Dim rs As New DataSet

Dim ConnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;""Data Source =" & Application.StartupPath & "\spot .mdb"

Dim sql As String

Dim rec As Integer

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

Con.ConnectionString = ConnString

Con.Open()

sql = "select*from billemp"

dp = New OleDb.OleDbDataAdapter(sql, Con)

dp.Fill(rs, "bill")

Con.Close()

rec = 0

call viewrecord()

Private Sub viewrecord

TextBox1.Text = rs.Tables("billemp").Rows(rec).Item(0)

TextBox2.Text = rs.Tables("billemp").Rows(rec).Item(1)

TextBox3.Text = rs.Tables("billemp").Rows(rec).Item(2)

TextBox4.Text = rs.Tables("billemp").Rows(rec).Item(3)

TextBox5.Text = rs.Tables("billemp").Rows(rec).Item(4)

TextBox6.Text = rs.Tables("billemp").Rows(rec).Item(5)