Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 109,038

HOME > .NET Framework > Forum > ต้องการดึงข้อมูลจาก SQL 2 ตารางลงใน Datagride View และให้แสดงใน Text Box รบชี้แนะด้วยค่ะ VB.NET


 

[.NET] ต้องการดึงข้อมูลจาก SQL 2 ตารางลงใน Datagride View และให้แสดงใน Text Box รบชี้แนะด้วยค่ะ VB.NET

 
Topic : 119014



โพสกระทู้ ( 20 )
บทความ ( 0 )



สถานะออฟไลน์



ตอนนี้สามารถ ดึงข้อมูลจากตาราง 1 ตารางได้แล้ว
แต่ติดตรงที่ว่าจะดึงข้อมูลจากตารางที่ 2 ให้แสดงออกใน Datagride view
พอใช้คำสั่ง INNER JOIN กลับ Error

Err
Incorrect syntax near the keyword 'INNER'.
Incorrect syntax near 'Supplier'.



ไม่ทราบว่าต้องให้มันแสดงออกอย่างไร รบกวนด้วยคะ มีเทคนิคอย่างไรรบกวนชี้แจงให้ด้วยค่ะ



Code (VB.NET)
view source
print?
01.Dim da As SqlDataAdapter
02.        Dim ds As DataSet = New DataSet
03.        Dim Tmpsql As String = ""
04. 
05.        Dim gdvrow As New DataGridViewRow
06. 
07.        Dim tmpSecId, tmpSecname, tmLastname, tmpSecadd, tmpBankId, tmpBankNumber, tmpBankName, tmpBankMajor As String
08.        Tmpsql = " SELECT Supplier.Sup_ID, Supplier.Sup_Name, Supplier.Sup_lastname, Supplier.Sup_Address, Supplier.Bank_ID"
09.        Tmpsql &= " FROM Supplier"
10.        Tmpsql &= " WHERE (((Supplier.Sup_Name)Like '" & Tmplist & "'));"
11. 
12.        'Tmpsql = " SELECT Supplier.Sup_ID, Supplier.Sup_Name, Supplier.Sup_lastname, Bank.Bank_ID, Bank.Bank_AccountNumber, Bank.Bank_Name, Bank.Bank_Major"
13.        'Tmpsql &= " Supplier INNER JOIN Bank ON Supplier.Bank_ID = Bank.Bank_ID"
14.        'Tmpsql &= " WHERE (((Supplier.Sup_Name)Like '" & Tmplist & "'));"
15. 
16.        If IsFind = True Then
17.            ds.Tables("SUPPLIER").Clear()
18. 
19.        End If
20. 
21.        da = New SqlDataAdapter(Tmpsql, Cn)
22.        da.Fill(ds, "SUPPLIER")
23. 
24.        If ds.Tables("SUPPLIER").Rows.Count <> 0 Then
25.            IsFind = True
26.            For i As Integer = 0 To ds.Tables("SUPPLIER").Rows.Count - 1
27.                With gdvrow
28.                    tmpSecId = ds.Tables("SUPPLIER").Rows(i).Item("SUP_ID").ToString.Trim
29.                    tmpSecname = ds.Tables("SUPPLIER").Rows(i).Item("SUP_NAME").ToString.Trim
30.                    tmLastname = ds.Tables("SUPPLIER").Rows(i).Item("SUP_LASTNAME").ToString.Trim
31.                    tmpSecadd = ds.Tables("SUPPLIER").Rows(i).Item("SUP_ADDRESS").ToString.Trim
32. 
33.                    'tmpBankId = ds.Tables("Bank").Rows(i).Item("Bank_ID").ToString.Trim
34.                    'tmpBankNumber = ds.Tables("Bank").Rows(i).Item("Bank.Bank_AccountNumber").ToString.Trim
35.                    'tmpBankName = ds.Tables("Bank").Rows(i).Item(" Bank.Bank_Name").ToString.Trim
36.                    'tmpBankMajor = ds.Tables("Bank").Rows(i).Item(" Bank.Bank_Major").ToString.Trim
37. 
38.                    Dim sDataRow As String() = {tmpSecId, tmpSecname, tmLastname, tmpSecadd, tmpBankId, tmpBankNumber, tmpBankName, tmpBankMajor}
39. 
40.                    DGV1.Rows.Add(sDataRow)   'เพิ่มตรงนี้เข้าไปคับ ก็ OK แล้ว
41.                    DGV1.ReadOnly = True




Tag : .NET, VB.NET, Windows
Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2015-09-22 12:11:07 By : fonhaha View : 943 Reply : 4
 

 

No. 1



โพสกระทู้ ( 20 )
บทความ ( 0 )



สถานะออฟไลน์


เจอแล้วค่ะ ขอบคุณค่ะ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-09-22 13:35:51 By : fonhaha
 

 

No. 2



โพสกระทู้ ( 20 )
บทความ ( 0 )



สถานะออฟไลน์


เผื่อมีใครหาอยู่ เอาไว้ให้ค่ะ



Code (VB.NET)
view source
print?
01.Dim da As SqlDataAdapter
02.        Dim ds As DataSet = New DataSet
03.        Dim Tmpsql As String = ""
04. 
05.        Dim gdvrow As New DataGridViewRow
06. 
07.        Dim tmpSecId, tmpSecname, tmLastname, tmpSecadd, tmpBankId, tmpBankNumber, tmpBankName, tmpBankMajor As String
08.         
09.        Tmpsql = " SELECT Supplier.Sup_ID, Supplier.Sup_Name, Supplier.Sup_lastname, Supplier.Sup_Address, Supplier.Bank_ID, Bank.Bank_AccountNumber, Bank.Bank_Name, Bank.Bank_Major"
10.        Tmpsql &= " FROM Supplier INNER JOIN Bank ON Supplier.Bank_ID = Bank.Bank_ID"
11.        Tmpsql &= " WHERE (((Supplier.Sup_Name)Like '" & Tmplist & "'));"
12. 
13.        If IsFind = True Then
14.            ds.Tables("SUPPLIER").Clear()
15. 
16.        End If
17. 
18.        da = New SqlDataAdapter(Tmpsql, Cn)
19.        da.Fill(ds, "SUPPLIER")
20. 
21.        If ds.Tables("SUPPLIER").Rows.Count <> 0 Then
22.            IsFind = True
23.            For i As Integer = 0 To ds.Tables("SUPPLIER").Rows.Count - 1
24.                With gdvrow
25.                    tmpSecId = ds.Tables("SUPPLIER").Rows(i).Item("SUP_ID").ToString.Trim
26.                    tmpSecname = ds.Tables("SUPPLIER").Rows(i).Item("SUP_NAME").ToString.Trim
27.                    tmLastname = ds.Tables("SUPPLIER").Rows(i).Item("SUP_LASTNAME").ToString.Trim
28.                    tmpSecadd = ds.Tables("SUPPLIER").Rows(i).Item("SUP_ADDRESS").ToString.Trim
29.                    tmpBankId = ds.Tables("SUPPLIER").Rows(i).Item("Bank_ID").ToString.Trim
30.                    tmpBankNumber = If(IsDBNull(ds.Tables("SUPPLIER").Rows(i).Item("Bank_AccountNumber")), "", Trim(ds.Tables("SUPPLIER").Rows(i).Item("Bank_AccountNumber")))
31.                    tmpBankName = If(IsDBNull(ds.Tables("SUPPLIER").Rows(i).Item("Bank_Name")), "", Trim(ds.Tables("SUPPLIER").Rows(i).Item("Bank_Name")))
32.                    tmpBankMajor = If(IsDBNull(ds.Tables("SUPPLIER").Rows(i).Item("Bank_Major")), "", Trim(ds.Tables("SUPPLIER").Rows(i).Item("Bank_Major")))
33. 
34.                    '
35. 
36.                    Dim sDataRow As String() = {tmpSecId, tmpSecname, tmLastname, tmpSecadd, tmpBankId, tmpBankNumber, tmpBankName, tmpBankMajor}
37. 
38.                    DGV1.Rows.Add(sDataRow)   'เพิ่มตรงนี้เข้าไปคับ ก็ OK แล้ว
39.                    DGV1.ReadOnly = True
40.                End With
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-09-22 14:46:14 By : fonhaha
 

 

No. 3



โพสกระทู้ ( 821 )
บทความ ( 0 )



สถานะออฟไลน์



แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-09-22 14:55:54 By : fonfire
 

 

No. 4



โพสกระทู้ ( 74,059 )
บทความ ( 838 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์
Twitter Facebook


แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-09-22 20:23:51 By : mr.win
 

   

ค้นหาข้อมูล
   
 

แสดงความคิดเห็น
Re : ต้องการดึงข้อมูลจาก SQL 2 ตารางลงใน Datagride View และให้แสดงใน Text Box รบชี้แนะด้วยค่ะ VB.NET
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
 Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)





ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2025 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 อัตราราคา คลิกที่นี่