[تنبيه - استخدم البحث :]الربط بين القاعده بيانات والفيجوال 8

اقتباس

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Try

conn.open()

db1.Fill(ds1, "wanted")

conn.close()

Me.TextBox1.DataBindings.Add("text", ds1, "wanted.txtname")

Me.TextBox2.DataBindings.Add("text", ds1, "wanted.txtfather")

Me.TextBox3.DataBindings.Add("text", ds1, "wanted.txtgrand")

Me.TextBox4.DataBindings.Add("text", ds1, "wanted.txtfamily")

Me.TextBox5.DataBindings.Add("text", ds1, "wanted.txtqabilah")

Me.TextBox6.DataBindings.Add("text", ds1, "wanted.birthplace")

Me.TextBox7.DataBindings.Add("text", ds1, "wanted.birthdate")

Me.TextBox8.DataBindings.Add("text", ds1, "wanted.txtecordno")

Me.TextBox9.DataBindings.Add("text", ds1, "wanted.txtnoteno")

Me.TextBox10.DataBindings.Add("text", ds1, "wanted.txtnotesource")

Me.TextBox11.DataBindings.Add("text", ds1, "wanted.txtnotedate")

Catch ex As Exception

MsgBox(Err.Description, MsgBoxStyle.Critical)

End Try

End Sub

اقتباس

Imports System.Data.OleDb

Module connstr

Public Conn As new

oledbconnection("PROVIDER=MICROSOFT.ACE.OLEDB.12.0;DATA SOURCE=|datadirectory|\db1.accdb;Jet oledb:database ")

Public ds1 As New DataSet

Public sql1 As String = "select * from wanted"

Public da1 As New OleDbDataAdapter(sql1, conn)

End Module