Learn how to use Microsoft Access with this beginner tutorial. Whether you're new to Access or just need a refresher, this video will guide you through the basics of using this powerful database management tool.
Imports System.Data.OleDb
Public Class Form4
Dim conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=F:\dates.accdb")
Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
d1.Format = DateTimePickerFormat.Custom
d1.CustomFormat = "MM/dd/yyyy"
d2.Format = DateTimePickerFormat.Custom
d2.CustomFormat = "MM/dd/yyyy"
DataGridView1.BackgroundColor = System.Drawing.SystemColors.Control
If conn.State = ConnectionState.Closed Then
conn.Open()
End If
Dim cmd1 As New OleDbCommand(" select id,date1,username from table1", conn)
Dim da As New OleDbDataAdapter
Dim dt As New DataTable
da.SelectCommand = cmd1
dt.Clear()
da.Fill(dt)
DataGridView1.DataSource = dt
DataGridView1.Columns(1).DefaultCellStyle.Format = "dd/MM/yyyy"
DataGridView1.Columns(0).HeaderText = "ID"
DataGridView1.Columns(1).HeaderText = "Start date"
DataGridView1.Columns(2).HeaderText = "Username"
DataGridView1.EnableHeadersVisualStyles = False
With DataGridView1.ColumnHeadersDefaultCellStyle
.Font = New Font("arial", 12, FontStyle.Italic)
.BackColor = Color.Black
.ForeColor = Color.White
End With
DataGridView1.Columns(0).DefaultCellStyle.Font = New Font("tahoma", 10, FontStyle.Bold)
DataGridView1.Columns(1).DefaultCellStyle.Font = New Font("tahoma", 10, FontStyle.Italic)
DataGridView1.Columns(2).DefaultCellStyle.Font = New Font("tahoma", 10, FontStyle.Underline)
DataGridView1.Columns(0).HeaderCell.Style.Alignment = DataGridViewContentAlignment.TopCenter
DataGridView1.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.TopCenter
DataGridView1.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.TopCenter
DataGridView1.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
DataGridView1.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
DataGridView1.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
DataGridView1.Columns(0).DefaultCellStyle.BackColor = Color.Yellow
DataGridView1.Columns(1).DefaultCellStyle.BackColor = Color.Brown
DataGridView1.Columns(2).DefaultCellStyle.BackColor = Color.Green
DataGridView1.Rows(0).Cells(0).Selected = False
DataGridView1.Rows(2).Cells(1).Selected = False
End Sub
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If conn.State = ConnectionState.Closed Then
conn.Open()
End If
Dim dtdate1 As DateTime = DateTime.Parse(d1.Text)
Dim dtdate2 As DateTime = DateTime.Parse(d2.Text)
Dim cmd1 As OleDbCommand = New OleDbCommand("select id,date1,username from table1 where date1 between #" &
dtdate1.ToString("MM/dd/yyyy") & "# and #" &
dtdate2.ToString("MM/dd/yyyy") & "# order by date1 desc", conn)
Dim da As New OleDbDataAdapter
da.SelectCommand = cmd1
Dim dt As New DataTable
dt.Clear()
da.Fill(dt)
DataGridView1.DataSource = dt
conn.Close()
End Sub
End Class
برنامج عارض ملفات الاكسس Access: هو برنامج بسيط لعرض جميع ملفات قواعد بيانات اكسس بجميع انواعها وحتى لو به كلمة مرور بشرط معرفة كلمة المرور يتم ادخالها من قبل المستخدم ثم يعرض جميع الجداول بقاعدة البيانات ثم يتم اختيار الجدول المراد عرض وتعديل بياناته بجملة استعلام افتراضية وعند الرغبة في عمل استعلامات أخرى لعرض بيانات اكثر يمكن متابعة فيديو الشرح للبرنامج أو ارسال اي استفسار، وهذا البرنامج بالرغم من بساطته ولكنه يساعدك في عرض اي ملف قاعدة بيانات اكسيس وكذلك تعلم برمجة
البرنامج متاح مجاني للجميع ولكن من يستفيد بالبرنامج الرجاء الاشتراك بالقناة وعمل اعجاب ومشاركة الفيديو وذلك للتشجيع على الاستمرار . ولكم جزيل الشكر
رابط التحميل
http://www.mediafire.com/file/22109oj0zajee2c/Small_access.rar/file
