[اسامه الهرماوي]

نكمل اليوم

---

ومن غير تطويل هتخش علي المكان دا علي الجهاز سواء منزل SQL مستقل او لا

كود :

C:\Program Files\Microsoft SQL Server\MSSQL10.SQLEXPRESS\MSSQL\DATA

بعد كدا هتلاقي كل القواعد المنشئة يعني احنا كنا مسمينها osama

---

البيانات هنا.

---

كدا القاعدة خلاص هنبدأ دلوقتي في الفيجوال بعد الدخول هنضغط علي DATA من الشريط الاعلي ثم Add new data source هتفضل تدوس NEXT لحد ما توصل للفورم دا.

---

الفورمة دي.

---

بعد الضغط عليها من change تختار Microsoft SQL Server Database file هيظهرلك وتختار مكان القاعدة اللي هيكون في جهازك نفترض ان مكان التخزين علي الهارد \:Eوبعد كدا اضغط علي ok وبعد الضغط هيرجعك للفورمة اللي سبقت والمربع فيه اسم القاعدة اللي حدتها وامتدادها هتضغط NEXT مرتين وفي التالتة هيظهرلك الشاشة دي اضغط علي table وبعد كدا اختار الجداول اللي في القعدة اللي حدتها من قبل.

---

وبعد كدا Finish وكدا يبقي مبروووك كدا انت اتصلت
-طب اه الكود اللي هنستخدمة للاتصال وازاي نربط زي الأكسس زي الاضافة والحفظ والحذف والبحث 
اللي هيتغير حاجة واحدة بس oledb الي sql وكود الاتصال زي كدا. دا بعد اضافة DATAGRIDVIEW للفورم لاظهار البيانات.

كود :

Imports System.Data.SqlClient
Public Class المبالغ
   Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=E:\osama.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")
   Dim SQLstr As String = "SELECT * FROM table1"
   Dim DataSet As New DataSet
   Dim DataAdapter As SqlDataAdapter
   Dim CMD As New SqlCommand

   Public Sub تحميل_البيانات()

       If con.State = ConnectionState.Closed Then
           con.Open()
       End If

       SQLstr = "SELECT * FROM table1"

       DataSet.Clear()

       Dim DataAdapterMaterials As New SqlDataAdapter(SQLstr, con)
       DataAdapterMaterials.Fill(DataSet, "table1")

       con.Close()

       DataGridView1.DataSource = DataSet
       DataGridView1.DataMember = "table1"
       sizee()
       DataGridView1.Refresh()

        DataGridView1.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
       DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect

   End Sub


   Private Sub form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       تحميل_البيانات()
   End Sub
END Class