 |
| |
การดึงข้อมูลจากฐานข้อมูลมาแสดงใน combobox วอนผู้เชี่ยวชาญทั้งเข้ามาช่วยกันตอบด้วยน่ะจ๊ะ |
| |
 |
|
|
 |
 |
|
Code (VB.NET)
Dim sql As String
sql = "คำสั่ง SELECT"
Dim da As New OleDbDataAdapter(sql, Conn)
Dim ds As New DataSet
da.Fill(ds, "tmp")
combobox.DataSource = ds.Tables("tmp")
combobox.DisplayMember = "ชื่อตาราง"
combobox.ValueMember = "ชื่อตาราง"
ตามนี้เลยคับ ใช้อยู่ อิอิ
|
 |
 |
 |
 |
| Date :
2010-08-14 09:37:36 |
By :
EucifeR |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
Code (VB.NET)
Imports System.Windows.Forms
Public Class Form1
Inherits System.Windows.Forms.Form
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles MyBase.Load
Dim comboBox As New ComboBox
Dim daysOfWeek As String() = _
New String() {"Monday", "Tuesday", "Wednesday", _
"Thursday", "Friday", "Saturday", _
"Sunday"}
With comboBox
.DataSource = daysOfWeek
.Location = New System.Drawing.Point(12, 12)
.Name = "comboBox"
.Size = New System.Drawing.Size(166, 21)
.DropDownStyle = ComboBoxStyle.DropDownList
End With
Me.Controls.Add(comboBox)
End Sub
End Class
Go to : ASP.NET DropDownlist and DataBinding
|
| |
|
|
| |
| Date :
2010-08-14 21:50:52 |
By :
webmaster |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ขอบคุณสำหรับคำตอบน่ะค่ะ
จะลองทำดู
|
| |
|
|
| |
| Date :
2010-08-15 09:33:47 |
By :
kang_VB |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
da.Fill(ds, "tmp") -------> มันติดตรงนี้อ่ะคับ ต้องแก้ที่ tmp เหรอคับ
|
| |
|
|
| |
| Date :
2010-09-18 18:00:00 |
By :
anubis |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ลอง test ตัว query ก่อนครับ
ว่ารัน query แล้วมีข้อมูลรึป่าว
ถ้ามีก็ลองไป test ตัว dataset ดูครับ
ว่าไป fill ทับกับตัวไหนรึป่าว
|
| |
|
|
| |
| Date :
2010-09-20 09:50:57 |
By :
mixarstudio |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
Dim da As New OleDbDataAdapter(sql, Conn)
ผมว่าติดตรงนี้
SQL ของจขกท คือ อะไร
Conn ของ จขกท คืออะไร
ว่าแต่ จขกท กับ pimjai นี้โรงเรียนเดียวกันเปล่าครับ
|
| |
|
|
| |
| Date :
2010-09-21 09:45:41 |
By :
kaimuk |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
Code (VB.NET)
if not ds.tables("tmp") is nothing then
ds.tables("tmp").clear()
end if
|
| |
|
|
| |
| Date :
2010-09-21 11:32:11 |
By :
tee |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ทำแล้วในช่อง combobox ดันขึ้น System.Data.DataRowView หมดเรย
ลองตรวจดูคิวรี่ก็มีข้อมูล เขียนถูก เพราะลองเอาไปใส่ดาต้ากริด ก็โชว์ขึ้นมา
แต่พอเอามาใส่ combobox ก็ดันขึ้น System.Data.DataRowView มาหมดเลยค่ะ
งง ค่ะ
|
| |
|
|
| |
| Date :
2010-10-14 16:25:57 |
By :
1234 |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ไม่ได้กำหนด displaymember กับ valuemember อะดิ
|
| |
|
|
| |
| Date :
2010-10-15 21:17:32 |
By :
tungman |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
Code (VB.NET)
Dim sql As String
sql = "คำสั่ง SELECT"
Dim da As New OleDbDataAdapter(sql, Conn)
Dim ds As New DataSet
da.Fill(ds, "tmp") ' อันนี้ tmp ตั้งชื่อเป็นอะไรก็ได้ แต่ถ้าให้ดี ตั้งเหมือนชื่อ table ดีที่สุดจะได้ไม่ลืม
combobox.DataSource = ds.Tables("tmp")
combobox.DisplayMember = "ชื่อ ColumnName" 'อยากให้แสดงอะไร ?
combobox.ValueMember = "รหัส ColumnID" 'เก็บ เอาไว้อ้างอิง หรือเอาไว้บันทึกลง db
|
| |
|
|
| |
| Date :
2010-10-16 15:30:50 |
By :
EvoLutionGT |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
อ่อ จริงด้วยค่ะ
ตอนแรกกำหนด combobox.DisplayMember = "ชื่อ TableName" เลยไม่ได้
ตอนนี้เปลี่ยนจาก TableName เป็น ColumnName แล้ว ได้แล้วค่ะ ขอบคุณมากๆๆๆ นะคะ
แต่ว่าในส่วนของ combobox.ValueMember = "รหัส ColumnID" จำเป็นต้องมีมั้ยคะ คือ งง ส่วนนี้อยู่ค่ะ
|
| |
|
|
| |
| Date :
2010-10-18 11:37:08 |
By :
1234 |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
'เอาฟังก์ชั่นนี้ไปใช้คับ
Public Sub ShowDataToCombo(ByVal _Tname As String, ByVal _FillShowname As String, ByVal _Cbo As ComboBox)
Dim dr As SqlDataReader
Dim CurrentItem As String
With Com
.CommandType = CommandType.Text
.CommandText = "Select * From " & _Tname & " "
.Connection = Conn
dr = Com.ExecuteReader
If dr.HasRows Then
_Cbo.BeginUpdate()
_Cbo.Items.Clear()
Do While (dr.Read())
CurrentItem = dr.Item("" & _FillShowname & "").ToString()
_Cbo.Items.Add(CurrentItem)
Loop
End If
End With
_Cbo.EndUpdate()
dr.Close() : dr.Dispose()
End Sub
'เวลาเรียกใช้ครับ
Call ShowDataToCombo("tb_prefix", "prefix_name", cboPrefix) ' /// cboPrefixชื่อคอมโบบ๊อก
|
| |
|
|
| |
| Date :
2010-10-21 16:47:18 |
By :
wikarn |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
vb6 ขอตัวอย่างหน่อยค่ะ
ต้องการให้ข้้อมูลที่เราเพิ่มใหม่ในaccessจากฟอร์มย่อย มาโชว์ใน coombobox ในฟอร์มหลัก
ตอนนี้ที่ทำได้คือ ข้อมูลที่เพิ่มใหม่ลงฐานข้อมูล แต่ไม่โชว์ในcomboboxต้องเพิ่มใหม่ ข้อมูลที่เพิ่มก่อนหน้าจึงจะโชว์
Private Sub Combo2_KeyDown(KeyCode As Integer, Shift As Integer)
Set RS = New ADODB.Recordset
RS.Open "select * from Table2 where SN = '" & Combo2.Text & "'", cn, adOpenKeyset, adLockOptimistic
If Not RS.EOF Then
Me.Combo1.Text = RS!Device
End If
RS.Close
Set RS = Nothing
End Sub
|
| |
|
|
| |
| Date :
2014-05-16 14:31:04 |
By :
koy |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
Load balance : Server 01
