|
|
|
การ INNER JOIN ตารางครับ พอดีติด error ครับ ไม่รู้ผิดตรงไหนครับ ช่วยทีครับ ขอบคุณครับ |
|
|
|
|
|
|
|
Code (VB.NET)
Private Sub showData()
'conn.Open()
Dim ds As New DataSet
Dim sqlCmd As String = "SELECT SaleDetail.[ลำดับ], SaleDetail.[รหัสรายการขายสินค้า], Product.[ชื่อสินค้า], Product.[ราคาขายเงินสด], SaleDetail.[จำนวนสินค้า], SaleDetail.[รวมเป็นเงิน], SaleDetail.[รหัสสินค้า] "
sqlCmd &= "FROM Product INNER JOIN SaleDetail ON Product.[รหัสสินค้า] = SaleDetail.[รหัสสินค้า] "
sqlCmd &= "WHERE SaleDetail.[รหัสรายการขายสินค้า] = " & hidSaleID.Text
da = New OleDbDataAdapter(sqlCmd, conn)
da.Fill(ds, "Sale_Data")
DGV_ShowRetail.DataSource = ds.Tables(0)
If DGV_ShowRetail.Rows.Count <= 1 Then
btnSave.Enabled = False
btnDel.Enabled = False
Else
btnSave.Enabled = True
btnDel.Enabled = True
End If
DGV_ShowRetail.Columns(0).Visible = False
DGV_ShowRetail.Columns(1).Visible = False
DGV_ShowRetail.Columns(2).HeaderText = "ชื่อสินค้า"
DGV_ShowRetail.Columns(3).HeaderText = "ราคา"
DGV_ShowRetail.Columns(4).HeaderText = "จำนวน"
DGV_ShowRetail.Columns(5).HeaderText = "ราคารวม"
DGV_ShowRetail.Columns(6).Visible = False
DGV_ShowRetail.Columns(2).Width = 120
DGV_ShowRetail.Columns(3).Width = 80
DGV_ShowRetail.Columns(4).Width = 80
DGV_ShowRetail.Columns(5).Width = 80
conn.Close()
Binding()
End Sub
Private Sub Binding()
Dim ObjC As CurrencyManager
ObjC = Me.BindingContext(DGV_ShowRetail.DataSource, "")
hidNo.DataBindings.Clear()
hidNo.DataBindings.Add("text", DGV_ShowRetail.DataSource, "ลำดับ")
End Sub
Tag : .NET, Ms Access, VB.NET
|
|
|
|
|
|
Date :
2011-01-05 15:01:39 |
By :
bird |
View :
1249 |
Reply :
5 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Code (VB.NET)
sqlCmd &= "WHERE SaleDetail.[รหัสรายการขายสินค้า] = '" & hidSaleID.Text & "'"
อย่างนี้รึป่าว...
|
|
|
|
|
Date :
2011-01-05 15:10:10 |
By :
EucifeR |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Code (VB.NET)
Dim dt As New DataTable
Dim sqlCmd As String = "SELECT SaleDetail.[ลำดับ], SaleDetail.[รหัสรายการขายสินค้า], Product.[ชื่อสินค้า], Product.[ราคาขายเงินสด], SaleDetail.[จำนวนสินค้า], SaleDetail.[รวมเป็นเงิน], SaleDetail.[รหัสสินค้า] "
sqlCmd &= "FROM Product INNER JOIN SaleDetail ON Product.[รหัสสินค้า] = SaleDetail.[รหัสสินค้า] "
sqlCmd &= "WHERE SaleDetail.[รหัสรายการขายสินค้า] = a"
da = New OleDbDataAdapter(sqlCmd, conn)
da.Fill(dt)
DGV_ShowRetail.DataSource = dt
If DGV_ShowRetail.Rows.Count <= 1 Then
btnSave.Enabled = False
btnDel.Enabled = False
Else()
btnSave.Enabled = True
btnDel.Enabled = True
End If
DGV_ShowRetail.Columns(0).Visible = False
DGV_ShowRetail.Columns(1).Visible = False
DGV_ShowRetail.Columns(2).HeaderText = "ชื่อสินค้า"
DGV_ShowRetail.Columns(3).HeaderText = "ราคา"
DGV_ShowRetail.Columns(4).HeaderText = "จำนวน"
DGV_ShowRetail.Columns(5).HeaderText = "ราคารวม"
DGV_ShowRetail.Columns(6).Visible = False
DGV_ShowRetail.Columns(2).Width = 120
DGV_ShowRetail.Columns(3).Width = 80
DGV_ShowRetail.Columns(4).Width = 80
DGV_ShowRetail.Columns(5).Width = 80
conn.Close()
Binding()
End Sub
|
|
|
|
|
Date :
2011-01-05 15:44:33 |
By :
msorawich |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
ยังเหมือนเดิมครับ ใครรู้ช่วยทีครับ ขอบคุณมากๆครับ
|
|
|
|
|
Date :
2011-01-05 22:32:12 |
By :
bird |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
ลองเอาค่า sqlCmd ตอนเกิด Error
ไปลองใน SQL Server Management Studio ดีกว่า
ว่ามี Error รึเปล่า
|
|
|
|
|
Date :
2011-01-06 09:17:37 |
By :
หางอึ่ง |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
SELECT
SaleDetail.[ลำดับ],
SaleDetail.[รหัสรายการขายสินค้า],
Product.[ชื่อสินค้า],
Product.[ราคาขายเงินสด],
SaleDetail.[จำนวนสินค้า],
SaleDetail.[รวมเป็นเงิน],
SaleDetail.[รหัสสินค้า]
FROM
Product INNER JOIN SaleDetail ON
Product.[รหัสสินค้า] = SaleDetail.[รหัสสินค้า]
WHERE SaleDetail.[รหัสรายการขายสินค้า] = [font=Verdana]a[/font]
"type mismatch in expression"
"a" ของคุณมันเป็น datatype อะไรครับ ผมว่าน่าจะเป็น nvarchar ดังนั้น บรรทัดสุดท้ายน่าจะเป็น
WHERE SaleDetail.[รหัสรายการขายสินค้า] = 'a'
คุณลองเอา query ไป ลองดูก่อนใน database สิครับ
|
|
|
|
|
Date :
2011-01-06 13:10:47 |
By :
numenoy |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Load balance : Server 00
|