نعم ... اكواد البرنامج هي
في الفورم
Public Class Form1
Dim DA As OleDb.OleDbDataAdapter
Dim CMD As OleDb.OleDbCommand
Dim CB As OleDb.OleDbCommandBuilder
Dim DS As DataSet
Dim BS As BindingSource
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim P1 As String
P1 = Application.StartupPath & "\19\"
Call PoolConnection(P1, 19)
CMD = New OleDb.OleDbCommand("SELECT Cat,SubCatCode,OldJob,NewJob, OldSalary,NewSalary,GiveDate,OrderNo,OrderDate FROM Store2", Conn)
DA = New OleDb.OleDbDataAdapter(CMD)
CB = New OleDb.OleDbCommandBuilder(DA)
DS = New DataSet
DS.Clear()
DA.Fill(DS, "Store2")
BS = New BindingSource(DS, "Store2")
DataGridView1.DataSource = BS
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
BS.EndEdit()
DA.Update(DS, "Store2")
End Sub
End Class
في الموديل
Imports System.IO
Imports System.Data.OleDb
Module Module1
Public Conn As New OleDb.OleDbConnection
Public Cmd As New OleDb.OleDbCommand
Public DBpass As String = ""
Public DBPath As String = ""
Public USERNAME, PASSWORD, SQLs, ImageName(30) As String
Public FName As String = "لم يتم تحميل اضبارة"
Public Usercode, CAT, SUBCAT, BirthDate, EID, ImageNo, ImageQTY As Integer, UnSearch As Boolean
Public Sub GeneratePath(ByVal P As String)
On Error Resume Next
MkDir(P)
ChDir(P)
End Sub
Public Sub dataconnection()
If Conn.State = ConnectionState.Open Then ' اذا كان الاتصال مفتوح اغلقه
Conn.Close()
End If
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath & ";Jet OLEDB
atabase Password=" & DBpass
'Application.StartupPath & "\data\PASSWORD.mdb
If Not Conn.State = ConnectionState.Open Then
'افتح الاتصال
Conn.Open()
End If
End Sub
Public Sub PoolConnection(P, F)
Dim FN As String
On Error GoTo MisDB
FN = P & "\" & F & ".mdb"
ret:
If Conn.State = ConnectionState.Open Then ' اذا كان الاتصال مفتوح اغلقه
Conn.Close()
End If
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FN & ";Jet OLEDB
atabase Password=" & DBpass
If Not Conn.State = ConnectionState.Open Then
'افتح الاتصال
Conn.Open()
End If
GoTo E
MisDB:
Call CopyDB(P, F)
GoTo ret
E:
End Sub
'نسخ قاعدة البيانات
Sub CopyDB(P, F)
Dim FN As String
On Error GoTo E
FN = P & "\" & F & ".mdb"
FileCopy(Application.StartupPath & "\BoxFile.mdb", FN)
E:
End Sub
Public Function Logon() As Boolean
If Conn.State() Then Conn.Close()
Conn.Open()
Dim cmd As New OleDbCommand(SQLs, Conn)
Dim dr As OleDbDataReader
dr = cmd.ExecuteReader()
If dr.Read() = True Then
Usercode = dr.Item(2)
Conn.Close()
Logon = True
Else
Conn.Close()
Logon = False
End If
End Function
Public Sub FILLCOMBOBOX(ByVal TABLE As String, ByVal FIELD As String, ByVal COMBO As Object, ByVal Cond As String)
On Error Resume Next
Dim BS As New BindingSource
Dim DS As New DataSet
Dim str As String = "SELECT " & FIELD & " FROM " & TABLE
If Cond <> "" Then str = str & " " & Cond
Dim ADP As New OleDb.OleDbDataAdapter(str, Conn)
ADP.Fill(DS, "TBL")
BS.DataSource = DS
BS.DataMember = "TBL"
COMBO.Items.Clear()
COMBO.DataSource = BS
COMBO.DisplayMember = FIELD
COMBO.ValueMember = FIELD
ADP.Dispose()
End Sub
End Module
