 |
| |
ขอสอบถามโค๊ด ดึงข้อมูล จากฐาน มาเเสดงที่ radiobutton ครับ |
| |
 |
|
|
 |
 |
|
ก็ดึงข้อมูลมาใส่ในตัวแปรเเล้วตั้งว่า
Code (VB.NET)
If ตัวแปรที่ตั้งขึ้น = ข้อมูลที่จะให้check then
Radiobutton1.checked = true
else if ตัวแปรที่ตั้งขึ้น = ข้อมูลที่จะให้check then
Radiobutton2.checked = true
end if
Radiobutton สามารถเลือกได้หลายอัน โดยเราใส่ให้อยู่คนละ GroupBox กันเราก็จะสามารถเเยกการทำงานกันได้ครับ
|
ประวัติการแก้ไข
2010-12-27 15:39:49
2010-12-27 15:41:28
 |
 |
 |
 |
| Date :
2010-12-27 15:39:25 |
By :
EucifeR |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
เเล้วมันจะเอาอะไรไป ดึงจาก ฐานครับ
|
| |
|
|
| |
| Date :
2010-12-27 16:05:39 |
By :
pisansri |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ก็เห็นบอกว่า "ดึงข้อมูล จากฐาน มาเเสดงที่ radiobutton" เเล้วคุณจะดึงอะไรมาก็ดึงมาตอนที่คุณไป SELECT นั้นเเหละครับว่าจะดึงอะไรมา
อะอย่างเช่น สร้างColumn ที่เก็บค่านี้ไว้เเล้วเวลา SELECT ค่า ตั้งเอาไว้ว่า ถ้าเท่ากับ 1 ให้เลือกอันที่ 1 ถ้าเท่ากับ 2 ก็ให้เลือกอันที่ 2
|
ประวัติการแก้ไข
2010-12-27 16:10:49
| |
|
|
| |
| Date :
2010-12-27 16:10:22 |
By :
EucifeR |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
รึว่าท่านจะเอามาเเสดงเป็น Text ของ Radiobutton เหรอครับถ้างั้นใส่เป็น radiobutton.text="" นะครับ งง เเล้วอะ ว่าดึงมาใส่เป็นอะไรนะครับ 
|
| |
|
|
| |
| Date :
2010-12-27 16:25:17 |
By :
EucifeR |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
Code (VB.NET)
Dim strConn As String
strConn = "Data Source=.\SQLEXPRESS;Initial Catalog=SSPEGIS;Integrated Security=True"
Conn = New SqlConnection(strConn)
Dim sqlland As String = ""
sqlland = "SELECT * FROM land ORDER BY LANDID"
If IsFind = True Then
ds.Tables("land").Clear()
End If
da = New SqlDataAdapter(sqlland, Conn)
da.Fill(db)
Dim cmb As SqlCommandBuilder
cmb = New SqlCommandBuilder(da)
bin.DataSource = db
txtLANDID.DataBindings.Add("Text", bin, "LANDID")
txtPARCEL_CODE.DataBindings.Add("Text", bin, "PARCEL_CODE")
txtTAMBON_TH.DataBindings.Add("Text", bin, "TAMBON_TH")
txtDISTRICT_TH.DataBindings.Add("Text", bin, "DISTRICT_TH")
If sqlland = "1" Then
RadioButton1.Checked = True
ElseIf sqlland = "2" Then
RadioButton2.Checked = True
End If
ช่วยดูหน่อยครับ ทำยังไง
|
| |
|
|
| |
| Date :
2010-12-27 16:46:45 |
By :
pisansri |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ตอนนี้ ทำ บันทึกได้ เเต่ทำเเสดงไม่ได้ ครับ
เเก้ไขก้อยังไม่ได้ครับ
|
| |
|
|
| |
| Date :
2010-12-27 19:03:37 |
By :
pisansri |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
วัตถุประสงค์ของการใช้ RadioButton คล้ายกับ ComboBox ประเภท DropDownList คือ
User ไม่สามารถอื่นนอกเหนือจากที่เรากำหนด สามารถเลือกในเพียง 1 รายการ
ความแตกต่างของการใช้สองตัวนี้คือ
RadioButton ต้องมีรายการไม่มาก อย่างมากไม่ควรเกิน 5 รายการ แต่ ComboBox มีได้ไม่จำกัด
RadioButton ให้ User มองเห็นทุกรายการ
การเก็บบันทึก/แสดงค่าของ RadioButton มีหลายแนวทาง
1. จัดการเอง โดยใช้ Select Case/if เลือกที่จะใส่ หรือเลือกค่าที่จะเก็บ เป็นวิธีที่ใช้มากที่สุด
2. เก็บเข้าฐานข้อมูลทุกรายการ ซึ่งมีค่าเป็น True/False
ในแนวทางที่ 1 ก็จะไม่สามารถใช้ DataBinding ได้ แต่ก็สามารถประยุกต์ได้โดย
สร้าง Label/Textbox มารับค่า DataBinding แล้วใช้ Event TextChange/Validated มาส่งค่าให้กับ RadioButton อีกที
โดยอาจซ่อน Label/Textbox ไว้ก็ได้
|
ประวัติการแก้ไข
2010-12-27 20:38:03
2010-12-27 20:38:43
| |
|
|
| |
| Date :
2010-12-27 20:36:31 |
By :
base3000 |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
Code (VB.NET)
Imports System.Data
Imports System.Data.SqlClient
Public Class Form2
Dim Conn As SqlConnection = New SqlConnection
Dim dt As New DataTable
Dim db As New DataTable
Private bin As New BindingSource
Dim ds As DataSet = New DataSet
Dim CurrentRecord As Integer = 0
Dim RecordCount As Integer = 0
Dim acProductList As New AutoCompleteStringCollection()
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim strConn As String
strConn = "Data Source=.\SQLEXPRESS;Initial Catalog=SSPEGIS;Integrated Security=True"
Conn = New SqlConnection(strConn)
Dim sqlland As String = ""
sqlland = "SELECT * FROM land ORDER BY LANDID"
If IsFind = True Then
ds.Tables("land").Clear()
End If
da = New SqlDataAdapter(sqlland, Conn)
da.Fill(db)
Dim cmb As SqlCommandBuilder
cmb = New SqlCommandBuilder(da)
bin.DataSource = db
txtPARCEL_CODE.DataBindings.Add("Text", bin, "PARCEL_CODE")
If CurrentRecord > 0 Then
If Convert.ToString(dt.Rows(CurrentRecord - 1).Item("LAND_RENTID")) = "1" Then
RadioButton1.Checked = True
ElseIf Convert.ToString(dt.Rows(CurrentRecord - 1).Item("LAND_RENTID")) = "2" Then
RadioButton2.Checked = True
End If
End If
End Sub
Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
bin.Position += 1
End Sub
End Class
ช่วย หน่อยครับทำวิธีนี้ก้อยัง ไม่ได้เลยครับ ขึ้นอยู่เเต่มันไม่เลือก เมื่อกดปุ่ม next
หว่า .. ทำไงก้อไม่ได้เลย
|
ประวัติการแก้ไข
2010-12-28 18:31:51
| |
|
|
| |
| Date :
2010-12-28 14:38:43 |
By :
pisansri |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ShowPosition() ยังไม่ได้ถูกเรียกใช้นิครับ เห็นเเยกออกเป็น Private Sub ShowPosition() อย่างนี้เราต้องเรียกเข้าไปใช้ใน Private Sub อื่นนิครับใช่ม๊ะ
|
| |
|
|
| |
| Date :
2010-12-28 15:37:52 |
By :
EucifeR |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
|
ประวัติการแก้ไข
2010-12-28 21:22:49
| |
|
|
| |
| Date :
2010-12-28 21:17:20 |
By :
base3000 |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
Code (VB.NET)
Imports System.Data
Imports System.Data.SqlClient
Public Class Form2
Dim Conn As SqlConnection = New SqlConnection
Dim da As SqlDataAdapter
Dim dt As New DataTable
Private bin As New BindingSource
Dim CurrentRecord As Integer
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim strConn As String
strConn = "Data Source=.\SQLEXPRESS;Initial Catalog=SSPEGIS;Integrated Security=True"
Conn = New SqlConnection(strConn)
Dim sqlland As String = ""
sqlland = "SELECT * FROM land ORDER BY LANDID"
da = New SqlDataAdapter(sqlland, Conn)
da.Fill(dt)
Dim cmb As SqlCommandBuilder
cmb = New SqlCommandBuilder(da)
bin.DataSource = dt
txtPARCEL_CODE.DataBindings.Add("Text", bin, "PARCEL_CODE")
If Convert.ToString(dt.Rows(CurrentRecord).Item("LAND_RENTID")) = "1" Then
RadioButton1.Checked = True
ElseIf Convert.ToString(dt.Rows(CurrentRecord).Item("LAND_RENTID")) = "2" Then
RadioButton2.Checked = True
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
bin.Position += 1
End Sub
End Class
เเก้เป็นเเบบนี้ก้อยังไม่ได้ครับ พวกพี่ๆ มีตัวอย่างโค้ดให้ผมดูบ้างรึเปล่าครับ
|
| |
|
|
| |
| Date :
2010-12-29 10:38:08 |
By :
pisansri |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
Code (VB.NET)
Imports System.Data
Imports System.Data.SqlClient
Public Class Form2
Dim Conn As SqlConnection = New SqlConnection
Dim da As SqlDataAdapter
Dim dt As New DataTable
Private bin As New BindingSource
Dim CurrentRecord As Integer
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim strConn As String
strConn = "Data Source=.\SQLEXPRESS;Initial Catalog=SSPEGIS;Integrated Security=True"
Conn = New SqlConnection(strConn)
Dim sqlland As String = ""
sqlland = "SELECT * FROM land ORDER BY LANDID"
da = New SqlDataAdapter(sqlland, Conn)
da.Fill(dt)
Dim cmb As SqlCommandBuilder
cmb = New SqlCommandBuilder(da)
bin.DataSource = dt
txtPARCEL_CODE.DataBindings.Add("Text", bin, "PARCEL_CODE")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
bin.Position += 1
If bin.Current("LAND_RENTID") = 1 Then
RadioButton1.Checked = True
Else
RadioButton2.Checked = True
End If
End Sub
End Class
|
| |
|
|
| |
| Date :
2010-12-29 10:50:50 |
By :
base3000 |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
Code (VB.NET)
Imports System.Data
Imports System.Data.SqlClient
Public Class Form2
Dim Conn As SqlConnection = New SqlConnection
Dim da As SqlDataAdapter
Dim dt As New DataTable
Private bin As New BindingSource
Dim CurrentRecord As Integer
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim strConn As String
strConn = "Data Source=.\SQLEXPRESS;Initial Catalog=SSPEGIS;Integrated Security=True"
Conn = New SqlConnection(strConn)
Dim sqlland As String = ""
sqlland = "SELECT * FROM land ORDER BY LANDID"
da = New SqlDataAdapter(sqlland, Conn)
da.Fill(dt)
Dim cmb As SqlCommandBuilder
cmb = New SqlCommandBuilder(da)
bin.DataSource = dt
Try
If Convert.ToString(dt.Rows(CurrentRecord).Item("PICTURE")) <> "" Then
PictureBox1.Image = Image.FromFile(Convert.ToString(dt.Rows(CurrentRecord).Item("PICTURE")))
Else
PictureBox1.Image = Nothing
End If
Catch
PictureBox1.Image = Nothing
End Try
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
bin.Position += 1
If bin.Current("PICTURE") Then
End If
End Sub
End Class
เเต่ถ้า เป็นรูปภาพหละ ครับ เมื่อกด next ถัดไปละครับ ให้มันเปลี่ยนภาพด้วย
|
| |
|
|
| |
| Date :
2011-01-05 14:11:45 |
By :
pisansri |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
รบกวนถามอีกนะครับ
อยากดึงมาแสดง ให้ เลือก นำค่าจากฐานข้อมูลมาแสดงเป็นคำถามในRadioButton vb2005
ผมมีข้อมูลในฐานข้อมูล
id nameid
01 ตรวจร่างกาย
02 ตรวจสายตา
03 ไปอีกแล้วผมทำเมนูเพิ่มไว้ละ
ที่นี้อยากดึงมาแสดง ให้ เลือก นำค่าจากฐานข้อมูลมาแสดงเป็นคำถามในRadioButton vb2005
ตรวจร่างกาย O ปกติ O ไม่ปกติ [textbox สามารถกรอกข้อมูลได้]
ตรวจร่างกาย O ปกติ O ไม่ปกติ [textbox สามารถกรอกข้อมูลได้]
แล้วบันทึกลงฐานข้อมูล ต้องใช้ โค้ดแบบไหน โดยเก็บค่า จาก id นะครับ ลงอีกตารางหนึ่ง
ขอบคุณมากครับ
|
| |
|
|
| |
| Date :
2011-06-09 10:29:03 |
By :
saam |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
