03-05-19, 12:16 AM
السّلام عليكم و رحمة الله و بركاته
أخي أسامة فقط غير هذا السطر :
كود :
Imports System.Data.OleDbبـــ :
كود :
Imports System.Data.SqlClientو عبارات OleDb ب Sql
كود :
Imports System.Data.SqlClient
Public Class كتاب
Dim con As New SqlConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\البيانات.accdb")
Dim SQLstr As String = "SELECT * FROM books"
Dim DataSet As New DataSet
Dim DataAdapter As SqlDataAdapter
Public dausers As New SqlDataAdapter
Public users As New DataTableو طبعا جملة الإتّصال كمثال :
كود :
Dim con As New SqlConnection("Server=OSSAMA;Database=SALSES_SYSTEM;Integrated Security=false;user id=Sa;password=123456789")تحياتي
قناتنا على اليوتوب
