12-07-17, 10:49 PM
(12-07-17, 10:43 PM)tryold كتب : احذف المسافة بعد علامة يساويحذفتها اخي الحبيب بس للاسف لسه المشكلة
\.=Data Source
Imports System.Data.Sql
Imports System.Data.SqlClient
Public Class Form1
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
