12-07-17, 10:20 PM
السلام عليكم الاخوة الاحباب
يارب تكونوا بالف خير ان شاء الله
عملت مشروع بسيط لعرض جدول في الفورم والداتا بيس عبارة عن ملفات .mdf
اخدتها من ال SQL Server
ولكن للاسف وجدتها لا تعمل
فبرجاء فحص الكود حيث اني لم اتمكن من رفع المشروع نفسه حيث انه كبير جدا
يارب تكونوا بالف خير ان شاء الله
عملت مشروع بسيط لعرض جدول في الفورم والداتا بيس عبارة عن ملفات .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
