ربط الاكسس بفيجوال بيسك 2005

أولا يا اختي الكريمة لا تفكري بنفس طريقة مواقع الانترنت من حيث الإخراج

ثانيا يوجد في المنتدى مواضيع كثيرة حول ربط قاعدة البيانات مع الفيجوال 2005

ثالثا الملف الثاني محتاج باسورد

رابعا انصحك بالاطلاع على برامج جاهزة لتاخدي فكرة عن الاخراج

اختي الغالية ...

الاتصال بالقاعدة اما بالمعالج وهي الطريقة الي انت سويتيها وهذي لاتمكنك من التعامل مع القاعدة بالاومرالبرمجية

لذلك يستحسن استخدام الاتصال البرمجي اليك الاكواد ياعزيزتي :

الاتصال البرمجي :

Imports System.Data.OleDb

Public Class Form1

	Dim con As String = "provider=microsoft.jet.oledb.4.0; data source=h:\db1.mdb"

	Dim dbcon As New OleDbConnection(con)

	Dim ds As New DataSet

	Dim sql As String = "select * from tab1"

	Public Sub display()

		ds.Clear()

		Dim da As New OleDbDataAdapter(sql, dbcon)

		da.Fill(ds)

		TextBox1.DataBindings.Add("Text", ds.Tables(0), "Nom")

		TextBox2.DataBindings.Add("Text", ds.Tables(0), "name")

		TextBox3.DataBindings.Add("Text", ds.Tables(0), "Mark")

		recordpositon()

التالي /

		Me.BindingContext(ds.Tables(0)).Position +=1

		recordpositon()

السابق /

		Me.BindingContext(ds.Tables(0)).Position -= 1

		recordpositon()

الاضافة /

		Me.Hide()

		Dim d1 As Integer = InputBox("inser nomber")

		Dim d2 As String = InputBox("inser name")

		Dim d3 As Integer = InputBox("inser mark")

		sql = "INSERT INTO Tab1(nom,name,mark)values (" & d1 & ",'" & d2 & "'," & d3 & ") "

		Dim cmd As New OleDbCommand(sql, dbcon)

		dbcon.Open()

		cmd.ExecuteNonQuery()

		dbcon.Close()

		MsgBox("تمت عملية الاضافة والحفظ في قاعدة البيانات بنجاح")

		Dim xx As New Form1

		xx.Show()

اتمنى اكون افدتك واذا تبين أي سؤال او البرنامج السابق كامل مع شاشته انا حاضر .

Al_hawi2005@hotmail.com

راح استخدم الاكواد في الربط

الف شكر اخووي ويعطيك ألف عافيه

تحياتي

اذهبي لقسم ADO.NET فهناك مبتغاك وستجدين الكثير ممن يساعدوك لان ما تطلبينه يخص ذلك القسم ..