فرامرز90
جمعه 22 مهر 1390, 22:31 عصر
با سلام به دوستان عزیز تر از جان من درام یه برنامه می نویسم برای گزارش گیری نیاز به اتصال دو table از دیتا بیس دارم
البته قبلا جستجو کردم اما مشکل حل نشده کد برنامه به قرار زیر است
Dim con4 As New System.Data.OleDb.OleDbConnection
Dim myPath4 As String
myPath4 = System.Windows.Forms.Application.StartupPath + "\paygah.mdb"
con4.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data source=" & myPath4 & ";"
con4.Open()
SearchStr = "SELECT data.*,tran.* FROM (data INNER JOIN tran) ON (data.[code]=tran.[code])"
Dim cmd4 As System.Data.OleDb.OleDbCommand = New System.Data.OleDb.OleDbCommand(SearchStr, con4)
Dim reader4 As System.Data.OleDb.OleDbDataReader = cmd4.ExecuteReader()
While (reader4.Read)
ListBox1.Items.Add(reader4("code").ToString & vbTab & reader4("name").ToString & vbTab & reader4("tran code").ToString)
End While
reader4.Close()
con4.Close()
اما سیستم ارور زیر رو میده:گریه:
Syntax error in FROM clause.
نمی دونم کجا اشتباه کردم ممنون میشم بررسی کنید جواب بدید
موفق و مهدوی باشید
البته قبلا جستجو کردم اما مشکل حل نشده کد برنامه به قرار زیر است
Dim con4 As New System.Data.OleDb.OleDbConnection
Dim myPath4 As String
myPath4 = System.Windows.Forms.Application.StartupPath + "\paygah.mdb"
con4.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data source=" & myPath4 & ";"
con4.Open()
SearchStr = "SELECT data.*,tran.* FROM (data INNER JOIN tran) ON (data.[code]=tran.[code])"
Dim cmd4 As System.Data.OleDb.OleDbCommand = New System.Data.OleDb.OleDbCommand(SearchStr, con4)
Dim reader4 As System.Data.OleDb.OleDbDataReader = cmd4.ExecuteReader()
While (reader4.Read)
ListBox1.Items.Add(reader4("code").ToString & vbTab & reader4("name").ToString & vbTab & reader4("tran code").ToString)
End While
reader4.Close()
con4.Close()
اما سیستم ارور زیر رو میده:گریه:
Syntax error in FROM clause.
نمی دونم کجا اشتباه کردم ممنون میشم بررسی کنید جواب بدید
موفق و مهدوی باشید