كود الأستخدام الأتصال بقاعدة البيانات وعرضه على الفورم
كود الأستخدام الأتصال بقاعدة البيانات وعرضه على الفورم
كود: Public Class Form1 Inherits System.Windows.Forms.Form Dim WithEvents bmb As BindingManagerBase Dim Myds As New DataSet() Dim InfoManager As CurrencyManager ‘سنعمل أتصال بقاعدة البيانات بأستخدام الأكسيس ‘سنطبق على قاعدة فيه جدول فيه عمودين ‘تحتاج إلى تكست بوكس عدد2 ‘زر تحريك يمين وزريسار ‘أقرأ الكود بشكل جيد وضع محل كل أسم الجدول العمود الأول العمود الثاني أسه بالأنكليزي Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim con As New OleDb.OleDbConnection() Dim sql As String sql = "select العمود الأول,العمود الأول from اسم الجول" con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=مسار القاعدة;Persist Security Info=False" Dim daPerson As New OleDb.OleDbDataAdapter(sql, con) daPerson.Fill(Myds, "mm1") t1.DataBindings.Add("Text", Myds, "أسم الجدول.العمود الأول") t2.DataBindings.Add("Text", Myds, "سم الجدول.العمود الثاني") bmb = Me.BindingContext(Myds, "أسم الجدول") bmb.Position = bmb.Count bmb.Position = 0 Button1.Text = ">>" Button1.Text = "<<" End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click ‘ تحريك يمين bmb.Position -= 1 End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click ‘ تحريك يسار bmb.Position += 1 End Sub End Class |
الساعة الآن 09:34 PM |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Content Relevant URLs by vBSEO ©2010, Crawlability, Inc. TranZ By
Almuhajir