Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,038

HOME > .NET Framework > Forum > การค้นหา เรคอร์ด ที่ชี้อยู่ใน DataGrid ให้ไปแสดงข้อมูลใน TextBox ทำยังไงครับ [VB6.0]

[.NET] การค้นหา เรคอร์ด ที่ชี้อยู่ใน DataGrid ให้ไปแสดงข้อมูลใน TextBox ทำยังไงครับ [VB6.0]

เริ่มหัวข้อใหม่

ming

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

จากรูป จะเห็นได้ว่าลูกศรชี้ตรง IDNO "9" แต่ที่TextBoxแสดงว่า IDNO "2" ที่เป็นIDNOแรกเท่านั้น ทำยังไงให้TextBoxแสดงเป็น "9" ล่ะครับT^T
นี่Codeครับ

Private Sub DataGrid1_DblClick()
Dim g_Conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
m_strConn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=test;Data Source=COM"
g_Conn.Open m_strConn
If rs.State = adStateOpen Then rs.Close
strSql = "SELECT * FROM emp"
rs.Open strSql, g_Conn, adOpenKeyset, adLockOptimistic
Text1.Text = rs!IDNO
End Sub
มันก็ถูกแล้วนะ ปกติใช้แต่AdodcครับT^T

ming

แล้วก็รูปนี่ผมอยากจังLock ไม่ให้มันกดเข้าไปเป็นTEXTBOXแบบนี่ อย่างให้กดไปแล้วเป็นแบบรูปแรกครับต้องทำยังไงหรอครับ

ขอบโทษนะครับที่ถามบ่อยผมมันกาก AND ขอบคุณครับที่ตอบ

Tag : .NET, Ms SQL Server 2005, Ms SQL Server 2008, VB.NET

Date : 2011-05-12 01:12:44

By : ming011

View : 3853

Reply : 9

No. 1

Guest

ท่านmr.win link มานี่ทำไมง่าครับ>< ใครรู้ตอบทีครับ

Date : 2011-05-12 12:33:51

By : ming011

No. 2

TC Admin

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

ลองดู Property ชื่อว่า DataGrid.SelBookmarks หา Item ไม่น่าจะยากครับ

เห็นอันนี้น่าสนใจดีครับ
http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=64111&lngWId=1

Date : 2011-05-12 13:34:53

By : webmaster

No. 3

ming

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

ได้ล่ะครับใช้
Private Sub DataGrid1_DblClick()
Text1.Text = DataGrid1.Text
End Sub

แต่มันแสดงแค่ฟิล IDNO ง'าครับ ทำไงให้มันแสดงฟิลอื่นง่าครับ

Date : 2011-05-12 17:31:52

By : ming011

No. 4

หางอึ่ง

โพสกระทู้ ( 1,348 )
บทความ ( 1 )

การทำให้ TextBox แสดงข้อความตาม DataGridView

1. สร้างฟอร์มเปล่า แล้วลาก Control จาก ToolBox แล้วตั้งชื่อต่อไปนี้
DataSet: dsMain
BindingSource: bsMain
DataGridView: dgMain
TextBox: z_ReqNo
TextBox: z_ReqAmt

060084_02

2. กำหนด Property DataSource ของ bsMain ให้เป็น dsMain

060084_03

3. ที่ DataGridView dgMain เลือก DataSource เป็น bsMain

060084_04

4. สร้าง Column ใน DataGridView และกำหนด DataPropertyName ของแต่ละ Column ดังนี้
เลขที่ ReqNo
จำนวนเงิน ReqAmt
สถานะ Status
วันที่บันทึก dtInsert

060084_05

5.เข้าไปที่ DefaultCellStyle ของ ReqAmt แล้วกำหนด Format เป็น N2

060084_06

6. เข้าไปที่ DefaultCellStyle ของ dtInsert แล้วกำหนด Format เป็น d-MMM-yyyy

060084_07

ประวัติการแก้ไข
2011-05-12 20:30:50

Date : 2011-05-12 20:28:09

By : watcharop

No. 5

หางอึ่ง

โพสกระทู้ ( 1,348 )
บทความ ( 1 )

แล้วนี่ก็เป็นโค้ด

Code (VB.NET)

Public Class Test
    Const C_TABLE = "ReqPayHead"
 
    Public Sub InitialControls()
        bsMain.DataMember = C_TABLE
        z_ReqNo.DataBindings.Add(New Binding("Text", bsMain, "ReqNo"))
        z_ReqAmt.DataBindings.Add(New Binding("Text", bsMain, "ReqAmt", True, System.Windows.Forms.DataSourceUpdateMode.OnValidation, Nothing, "N2"))
    End Sub
 
    Public Sub LoadData()
        Dim sqlCn As New SqlClient.SqlConnection(My.Settings.TestConString)
        Try
            sqlCn.Open()
            Dim SQL As String
            SQL = "SELECT TOP 100 t.ReqHeadID, t.ReqNo, t.Status, t.ReqAmt, t.dtInsert FROM VW_ReqPayHead t"
            Dim da As New SqlClient.SqlDataAdapter(SQL, sqlCn)
            If dsMain.Tables.Contains(C_TABLE) Then dsMain.Tables(C_TABLE).Rows.Clear()
            da.Fill(dsMain, C_TABLE)
        Catch ex As Exception
            Throw ex
        Finally
            sqlCn.Close() : sqlCn.Dispose()
        End Try
 
    End Sub
 
    Private Sub Test_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            LoadData()
            InitialControls()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
End Class

ผลการรันโปรแกรม

060084_01

ประวัติการแก้ไข
2011-05-12 20:31:41

Date : 2011-05-12 20:29:22

By : watcharop

No. 6

Guest

-ขอบคุณครับแต่เราอยากได้ของVB6.0หรือมันเอาไปใช้ด้วยกนได้><

Date : 2011-05-12 23:45:16

By : ming011

No. 7

หางอึ่ง

โพสกระทู้ ( 1,348 )
บทความ ( 1 )

กำ ลืมดูว่า VB6
งั้นลองโหลดที่ Mr.Win แนะนำดูล่ะกันครับ
ผมเติบโตมากับ .NET ไม่รู้เรื่อง VB6

Date : 2011-05-13 09:13:46

By : watcharop

No. 8

ming

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

ทำได้ล่ะครับText1.Text = rs.Fields.Item("Name") "Name"เป็นชื่อฟิล(Index)นะครับ

Date : 2011-05-14 00:00:26

By : ming011

No. 9

Guest

อยากให้ค้นหาวันที่ได้จาก combobox และรายละเอียดที่ตรงกับวันที่ที่เลือก โชว์ใน datagrid ต้องทำอย่างไรคะ vb6

Public cn As ADODB.Connection
Public RS As ADODB.Recordset
Sub fillcombo()
Set RS = New ADODB.Recordset
 
Set cn = New ADODB.Connection
 
cn.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source= " & (App.Path & "\time3.mdb") & "; persist security info = false"
cn.Open
 
RS.Open "select * from Table1 ", cn, adOpenStatic, adLockPessimistic
'RS.Requery
 
While RS.EOF = False
Combo1.AddItem RS!DateNow
RS.MoveNext
Wend
RS.Close
Set RS = Nothing
End Sub
 
 
 
Private Sub Combo1_Click()
Set cn = New ADODB.Connection
Set RS = New ADODB.Recordset
cn.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source= " & (App.Path & "\time3.mdb") & "; persist security info = false"
cn.Open
RS.Open "select * from Table1 where DateNow = '" & Combo1.Text & "'", cn, 3, 3
If Not RS.EOF Then
Me.Combo1.Text = RS!DateNow
 
 
End If
Set RS = Nothing
 
 
 
End Sub
 
Private Sub Command3_Click()
Dim find As String
find = Combo1.Text
Adodc1.Recordset.find "DateNow =" & find
 
End Sub
 
Private Sub DataGrid1_Click()
Set cn = New ADODB.Connection
Set RS = New ADODB.Recordset
cn.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source= " & (App.Path & "\time3.mdb") & "; persist security info = false"
cn.Open
RS.Open "select * from Table1 where DateNow = '" & Combo1.Text & "'", cn, 3, 3
 
End Sub
 
Private Sub Form_Load()
Me.fillcombo
End Sub

Date : 2014-05-19 16:12:46

By : koy

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : การค้นหา เรคอร์ด ที่ชี้อยู่ใน DataGrid ให้ไปแสดงข้อมูลใน TextBox ทำยังไงครับ [VB6.0]

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

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

Notice

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

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก

<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)

Registered : 109,038

document.write("<font color=996600>[.NET]</font>"); [.NET] การค้นหา เรคอร์ด ที่ชี้อยู่ใน DataGrid ให้ไปแสดงข้อมูลใน TextBox ทำยังไงครับ [VB6.0]

No. 1

No. 2

No. 3

No. 4

No. 5

No. 6

No. 7

No. 8

No. 9

ค้นหาข้อมูล

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

Notice

[.NET] การค้นหา เรคอร์ด ที่ชี้อยู่ใน DataGrid ให้ไปแสดงข้อมูลใน TextBox ทำยังไงครับ [VB6.0]