27-07-14, 04:35 PM
أخواني الكرام انا جديد على فيجول بيسك ومحاول فهمه عن طريق اليوتيوب وبعض المواقع ..على العموم عندي استسفار .. بعد ماكتبت الكود من احد اليوتيوبات وعملت خلط ونقل..
المهم الكود اشتغل ولكن لا يعطيني البيانات صحيحة..
وضعت في برنامج الاكسس ستة حقول وهي (billID-Consignee-delivery_Point-description-received_date)..
وفتحت فورم جديد ووضعت 6 (textbox)
على أن يكون billID هو المكان الذي اذا اضع فيه رقم الايدي يستخرج بقية البيانات والمشكلة لا يعطيني بيانات صحيحة بمعنى يذهب لحقل واحد فقط مهما كتبت الايدي الموجود في الاكسس...
وهذا هو الكود..
المهم الكود اشتغل ولكن لا يعطيني البيانات صحيحة..
وضعت في برنامج الاكسس ستة حقول وهي (billID-Consignee-delivery_Point-description-received_date)..
وفتحت فورم جديد ووضعت 6 (textbox)
على أن يكون billID هو المكان الذي اذا اضع فيه رقم الايدي يستخرج بقية البيانات والمشكلة لا يعطيني بيانات صحيحة بمعنى يذهب لحقل واحد فقط مهما كتبت الايدي الموجود في الاكسس...
وهذا هو الكود..
Imports System.Data.OleDb
Public Class Form1
Dim con As New OleDbConnection
Dim ds As New DataSet
Dim dt As New DataTable
Dim da As New OleDbDataAdapter
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Then
MsgBox("Please input the ID")
Else
con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\RIT\Desktop\dis\ontcoman.accdb"
con.Open()
ds.Tables.Add(dt)
da = New OleDbDataAdapter("select * from users", con)
da.Fill(dt)
If dt.Rows.Count > 0 Then
TextBox2.Text = dt.Rows(0).Item("tel_No")
TextBox3.Text = dt.Rows(0).Item("Consignee")
TextBox4.Text = dt.Rows(0).Item("delivery_Point")
TextBox5.Text = dt.Rows(0).Item("description")
TextBox6.Text = dt.Rows(0).Item("received_date")
Else
MsgBox("ID not Found")
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
End If
End If
con.Close()
End Sub
End Class
Public Class Form1
Dim con As New OleDbConnection
Dim ds As New DataSet
Dim dt As New DataTable
Dim da As New OleDbDataAdapter
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Then
MsgBox("Please input the ID")
Else
con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\RIT\Desktop\dis\ontcoman.accdb"
con.Open()
ds.Tables.Add(dt)
da = New OleDbDataAdapter("select * from users", con)
da.Fill(dt)
If dt.Rows.Count > 0 Then
TextBox2.Text = dt.Rows(0).Item("tel_No")
TextBox3.Text = dt.Rows(0).Item("Consignee")
TextBox4.Text = dt.Rows(0).Item("delivery_Point")
TextBox5.Text = dt.Rows(0).Item("description")
TextBox6.Text = dt.Rows(0).Item("received_date")
Else
MsgBox("ID not Found")
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
End If
End If
con.Close()
End Sub
End Class