منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

كيف يمكن ادراج بيانات جدولين فى الداتا قرايد

عن طريق جملة استعلام

Data from Two Tables in a Single DataGridView

PHP كود :

select tb1.tid,tb1.tn,tb2.mo from tb1,tb2 

المثال مرفق

PHP كود :

Imports System.Data.OleDb

Public Class Form1
    Dim ax, ay As Integer
    Dim ok As Boolean
    Private Sub fildg()
        Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=|datadirectory|\db.accdb"
        Dim con As New OleDbConnection(str)
        Dim ds As New DataSet
        ds.Clear()
        DataGridView1.DataSource = Nothing

        Dim da As New OleDbDataAdapter("select tb1.tid,tb1.tn,tb2.mo from tb1,tb2", con)
        da.Fill(ds, "tb1")
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "tb1"
        DataGridView1.Columns(0).HeaderText = "م"
        DataGridView1.Columns(0).Width = "60"
        DataGridView1.Columns(1).HeaderText = "الاسم"
        DataGridView1.Columns(1).Width = "200"
        DataGridView1.Columns(2).HeaderText = "الجوال"
        DataGridView1.Columns(2).Width = "200"




    End Sub
    Private Sub Panel1_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Left Then
            ok = True
            ax = Windows.Forms.Cursor.Position.X - Me.Left
            ay = Windows.Forms.Cursor.Position.Y - Me.Top
        End If
    End Sub

    Private Sub Panel1_MouseMove(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseMove
        If ok Then
            Me.Left = Windows.Forms.Cursor.Position.X - ax
            Me.Top = Windows.Forms.Cursor.Position.Y - ay

        End If
    End Sub

    Private Sub Panel1_MouseUp(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseUp
        ok = False
    End Sub
    Private Sub Panel1_Paint(sender As System.Object, e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint

    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Me.Hide()
        Me.Dispose()
        Me.Close()
        End
    End Sub

    Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        fildg()
    End Sub
End Class 

اخى سعود والله ما قصرت
جعله الله فى ميزان حسناتك اخى ووفقك لما تحب وترضى

اخى الكود نفذ لكن ماذا افعل فى الصفوف المتكررة حيث البيانات عندى تتكرر لان عندى بعض الصفوف المتكررة

(14-05-14, 09:09 AM)mesm23 كتب : [ -> ]اخى الكود نفذ لكن ماذا افعل فى الصفوف المتكررة حيث البيانات عندى تتكرر لان عندى بعض الصفوف المتكررة

ضع كلمة DISTINCT بعد كلمة SELECT

(14-05-14, 09:58 AM)vbnet كتب : [ -> ]
(14-05-14, 09:09 AM)mesm23 كتب : [ -> ]اخى الكود نفذ لكن ماذا افعل فى الصفوف المتكررة حيث البيانات عندى تتكرر لان عندى بعض الصفوف المتكررة

ضع كلمة DISTINCT بعد كلمة SELECT

بارك الله فيك