[mona707]

بسم الله الرحمن الرحمن الرحيم

انا بشكركم على هذا المنتدى الجميل والاكثر من رائع وربنا يوفقكم لما فيه خير للجميع

انا مبتدأه جدا في مجال البرمجه وعمل البرامج وانا بصارحه تايه جدا ومش عارفه من فين ابدء . انا بشتغل في مؤسسه حكوميه وو ظيفتي منسقة وانا حبيت اعمل برنامج للموظفين فالمؤسسة توفر عليهم عناء ادخال التقرير اليوميه على اكسل .

فالبداية عملت قاعدة بيانات تتكون من 15 جدول لكل موظف جدول خاص فيه علشان يدخل فيه تقريره اليومي . طبعا الملف بصيغة accdb.

وبعد كده انتقلت لبرنامج فيجوال استوديو 2010 التميت وعملت فورم جديد ولسه بظيف عليه بعض الكماليات ودي صوره مبدئية للفورم .



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

رابط الفيديو : http://www.youtube.com/watch?v=0HBoJhrtDRc


3 شهور وانا بدور واتعلم ازاي اربط قاعدة البيانات بالطريقه دي لكن للاسف فشلت انا اريد نفس الطريقة دي ولا اريد طرق اخرى زي add data source وOleDbDataAdapter وغيرها اريد شرح من الالف الى الياء بنفس الطريقة الى صارت فالفيديو رجاء خاص الله يخليكم . للعلم فقط حاولت بشتى الطرق اني ادخل اكواد مختلفه مثل .

Imports System.Data
Imports System.Data.OleDb

Public Class Form1
Public ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source =" &
Application.StartupPath & "\maindatabase.accdb"
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
CON.Open()
Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, CON)
DataAdapter1.Fill(DS, "tabel1")
CON.Close()
Catch ex As Exception
MsgBox(ex.message, MsgBoxStyle.MsgBoxRight + MsgBoxStyle.Critical, " ء#$% &'
ل#)*+ ("ا
End Try
End Sub

او

Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\mon\Databases\maindatabase.accdb

مواصفات الجهاز

وندوز 7 64 بيت
اكسس 2007
فيجوال استوديو 2010 التميت

واسفه على الاطاله