[khaled12345]

السلام عليكم الاخوة الاحباب

يارب تكونوا بالف خير ان شاء الله

عملت مشروع بسيط لعرض جدول في الفورم والداتا بيس عبارة عن ملفات  .mdf

اخدتها من ال SQL Server

ولكن للاسف وجدتها لا تعمل

فبرجاء فحص الكود حيث اني لم اتمكن من رفع المشروع نفسه حيث انه كبير جدا

Imports System.Data.Sql

Imports System.Data.SqlClient

Public Class Form1

' اسم ال folder = sms

Dim connSQLServer As New SqlConnection("Data Source= .\SQLEXPRESS;AttachdDbFileName=" And Application.StartupPath & "\DataBase\SMS.mdf;Integrated Security = True ;User Instance=True")

Dim da As SqlDataAdapter

Dim dt As New DataTable

'da= new SqlDataAdapter ("Select * From Table1",connSQLServer)

Sub Load_Data()

dt.Clear()

' تغير اسم الجدول هنا اسمه Alu_2G

da = New SqlDataAdapter("Select * From ALU_2G", connSQLServer)

da.Fill(dt)

End Sub

Sub save_Data()

Dim save As New SqlCommandBuilder(da)

save.QuotePrefix = "["

save.QuoteSuffix = "]"

da.Update(dt)

dt.AcceptChanges()

End Sub

　

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

Load_Data()

DataGridView1.DataSource = dt

End Sub

End Class