saadi2
دوشنبه 23 شهریور 1388, 14:16 عصر
سلام
مشکل کد زیر چیه ؟ تاوقتی یک join به کار میبرم مشکلی نیس ولی وقتی دوتا میشه سینتکس میده
Imports System.Data.OleDb
Public Class Form1
Const Str As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = faktor.mdb"
Dim DA As New OleDbDataAdapter
Dim DA1 As New OleDbDataAdapter
Dim Com As New OleDbCommand
Public Trans As OleDbTransaction
Dim con As New OleDbConnection(Str)
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim sql As String = "SELECT [faktor.name], [faktor.tarikh], [kala.kalaname], " _
& "[jozfaktor.tedad], [kala.baha] FROM jozfaktor " _
& "INNER JOIN kala ON jozfaktor.idkala = kala.idkala " _
& "INNER JOIN faktor ON jozfaktor.faktorid = faktor.faktorid order by faktor.tarikh"
DA = New OleDbDataAdapter(sql, Str)
'DA1 = New OleDbDataAdapter("SELECT * from q", Str)
Dim DT1 As New DataTable
Try
DA.Fill(DT1)
Catch ex As Exception
MsgBox(ex.Message)
End Try
Dim dgv As New DataGridView
dgv.DataSource = DT1
Dim frm As New Form
frm.Controls.Add(dgv)
frm.Width = 550
dgv.Dock = DockStyle.Fill
frm.ShowDialog()
End Sub
مشکل کد زیر چیه ؟ تاوقتی یک join به کار میبرم مشکلی نیس ولی وقتی دوتا میشه سینتکس میده
Imports System.Data.OleDb
Public Class Form1
Const Str As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = faktor.mdb"
Dim DA As New OleDbDataAdapter
Dim DA1 As New OleDbDataAdapter
Dim Com As New OleDbCommand
Public Trans As OleDbTransaction
Dim con As New OleDbConnection(Str)
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim sql As String = "SELECT [faktor.name], [faktor.tarikh], [kala.kalaname], " _
& "[jozfaktor.tedad], [kala.baha] FROM jozfaktor " _
& "INNER JOIN kala ON jozfaktor.idkala = kala.idkala " _
& "INNER JOIN faktor ON jozfaktor.faktorid = faktor.faktorid order by faktor.tarikh"
DA = New OleDbDataAdapter(sql, Str)
'DA1 = New OleDbDataAdapter("SELECT * from q", Str)
Dim DT1 As New DataTable
Try
DA.Fill(DT1)
Catch ex As Exception
MsgBox(ex.Message)
End Try
Dim dgv As New DataGridView
dgv.DataSource = DT1
Dim frm As New Form
frm.Controls.Add(dgv)
frm.Width = 550
dgv.Dock = DockStyle.Fill
frm.ShowDialog()
End Sub