 |
| |
combobox ดึงข้อมูลจาก access ไม่ได้ครับขอความช่วยเหลือด้วยครับผม VB 2010 |
| |
 |
|
|
 |
 |
|
ขอความช่วยเหลือหน่อยครับ ผมต้องการโหลดข้อมูลจาก access เข้า combobox ตามโคดนี้
Code (VB.NET)
Imports System.Data.OleDb
Imports System.Data
Public Class Form2
Dim dt As New DataTable
Dim da As OleDbDataAdapter
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
CallDataDepartments()
CallDatauser()
End Sub
Private Sub CallDataDepartments()
Dim conn As New OleDbConnection
If conn.State = ConnectionState.Open Then conn.Close()
conn.ConnectionString = ConnectDB.Con
conn.Open()
Dim sql1 As String = "SELECT userlogin_ID,username FROM userlogin where username = '" & Form1.txtloginname.Text & "'"
Dim da As New OleDbDataAdapter(sql1, conn)
Dim dt As New DataTable
da.Fill(dt)
With cmbdepartment
.DataSource = dt
.DisplayMember = dt.Columns.Item("username").ColumnName 'คือตัวที่ใช้แสดงใน Combobox
.SelectedItem = dt.Columns.Item("userlogin_ID").ColumnName 'Code หรือรหัสที่เราสร้างขึ้นมาเช่น Primary Key
End With
Return
End Sub
Private Sub CallDatauser()
Dim conn As New OleDbConnection
If conn.State = ConnectionState.Open Then conn.Close()
conn.ConnectionString = ConnectDB.Con
conn.Open()
Dim sql2 As String = "SELECT user_ID,full_name FROM user"
Dim da As New OleDbDataAdapter(sql2, conn)
Dim dt As New DataTable
da.Fill(dt)
With cmbuser
.DataSource = dt
.DisplayMember = dt.Columns.Item("full_name").ColumnName 'คือตัวที่ใช้แสดงใน Combobox
.SelectedItem = dt.Columns.Item("user_ID").ColumnName 'Code หรือรหัสที่เราสร้างขึ้นมาเช่น Primary Key
End With
Return
End Sub
End Class
CallDataDepartments() มีข้อมูล แต่ว่า CallDatauser() ข้อมูลไม่ขึ้นไม่ทราบว่าผมเขียนผิดตรงไหนหรือครับ
ผมเข้าใจว่าเขียนคำสั่ง sql ผิด แต่ไม่ทราบว่ามันผิดตรงไหน
Dim sql2 As String = "SELECT user_ID,full_name FROM user" เพราะว่าลองเอาไปรันใน access ก็ขึ้นปกติครับ
Tag : .NET, VB.NET, VS 2005 (.NET 2.x), VS 2008 (.NET 3.x), VS 2010 (.NET 4.x)
|
|
|
 |
 |
 |
 |
| Date :
2012-07-23 20:50:54 |
By :
surap |
View :
2515 |
Reply :
3 |
|
 |
 |
 |
 |
|
|
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
โค๊ดก็ไม่นน่ามีปัญหานะครับ ผมลองทดสอบละ ลองตรวจสอบ database อีกทีครับ
Code (VB.NET)
Imports System.Data.OleDb
Imports System.Data
Public Class Form2
Dim dt As New DataTable
Dim da As OleDbDataAdapter
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
CallDataDepartments()
CallDatauser()
End Sub
Private Sub CallDataDepartments()
Dim conn As New OleDbConnection
If conn.State = ConnectionState.Open Then conn.Close()
conn.ConnectionString = ConnectDB
conn.Open()
Dim sql1 As String = "SELECT MemberID,FullName FROM Member" ' where username = '" & Form1.txtloginname.Text & "'"
Dim da As New OleDbDataAdapter(sql1, conn)
Dim dt As New DataTable
da.Fill(dt)
With cmbdepartment
.DataSource = dt
.DisplayMember = dt.Columns.Item("FullName").ColumnName 'คือตัวที่ใช้แสดงใน Combobox
.SelectedItem = dt.Columns.Item("MemberID").ColumnName 'Code หรือรหัสที่เราสร้างขึ้นมาเช่น Primary Key
End With
Return
End Sub
Private Sub CallDatauser()
Dim conn As New OleDbConnection
If conn.State = ConnectionState.Open Then conn.Close()
conn.ConnectionString = ConnectDB
conn.Open()
Dim sql2 As String = "SELECT BookTypeCode,BookTypeName FROM BookType"
Dim da As New OleDbDataAdapter(sql2, conn)
Dim dt As New DataTable
da.Fill(dt)
With cmbuser
.DataSource = dt
.DisplayMember = dt.Columns.Item("BookTypeName").ColumnName 'คือตัวที่ใช้แสดงใน Combobox
.SelectedItem = dt.Columns.Item("BookTypeCode").ColumnName 'Code หรือรหัสที่เราสร้างขึ้นมาเช่น Primary Key
End With
Return
End Sub
End Class
|
| |
|
|
| |
| Date :
2012-07-23 23:32:58 |
By :
pisansri |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ขอบคุณครับ แก้ได้แล้วครับ พอเปลี่ยนชื่อตาราง จาก user ไปเป็นชื่ออื่นมันได้เฉยๆเลย
user เป็นชื่อห้ามใช้หรือครับ
|
| |
|
|
| |
| Date :
2012-07-24 19:24:17 |
By :
surap |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
