Forgot Password ??

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

	Registered : 109,038

HOME > .NET Framework > Forum > รบกวนช่วย Code: Search,Edit หน่อยคับ vb.net /sql sever

รบกวนช่วย Code: Search,Edit หน่อยคับ vb.net /sql sever

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

fillguro

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

1.ผมอยากได้ Code ปุ่ม Search อ่ะคับ จากฐานข้อมูลใน SQL เวลาที่พิมชื่อ หรือนามสกุลพอกดปุ่ม Search ให้ข้อมูลที่เราพิมพ์ใน Textbox Name มาโชว์ใน Datagrid อะคับ

2.ผมอยากได้ Code ปุ่ม Edit อ่ะคับ โดยการดับเบิ้ลคลิกข้อมูลในดาต้ากริด ให้มันขึ้นมาโชว์ใน textbox ของข้อมูลนั้นๆ เมื่อแก้เสร็จ กดปุ่ม Edit แล้วให้มันบันทึกใน SQL ได้อ่ะคับ

ขอบคุณล่วงหน้าคับ

Tag : .NET, Ms SQL Server 2012, VS 2012 (.NET 4.x)

Date : 2014-11-26 18:04:21

By : fillguro

View : 2901

Reply : 13

No. 1

zarooman

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

ปุ่ม Search นะ

ประกาศใต้ Public Class
Code (VB.NET)

  Dim bs As New BindingSource

Code (VB.NET)

Private Sub btnsearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsearch.Click
  Dim da_mem As New SqlDataAdapter
  Dim ds_mem As New DataSet
  Dim sql As String
  sql = "SELECT * from tmember where memname like '%" & Textbox1.Text & "%' "
  da_mem.SelectCommand = New SqlCommand(Sql, Conn)
  ds_mem.Clear()
  da_mem.Fill(ds_mem, "tmember")
  bs.DataSource = ds_mem.Tables("tmember")
  dgvMember.DataSource = bs
End Sub

อันให้ทำใน Event datagrid DoubleClick นะ

Code (VB.NET)

            txtmemID.text =bs(bs.Position)("memID").ToString
            ChkStatus.Checked =bs(bs.Position)("Status")
            txtMemname.text =bs(bs.Position)("memname").ToString
            txtmemlast.Text = bs(bs.Position)("memlast").ToString
            DateTimePickerDate.Values = DateTime.Parse(bs(bs.Position)("memBirth").ToString)
            txtAddress.Text = bs(bs.Position)("memadd").ToString
            txtmememail.Text = bs(bs.Position)("mememail").ToString
            txtmemtel.Text = bs(bs.Position)("memtel").ToString

ปุ่ม Edit ซึ่งที่จริงแล้วน่าจะเขียนคำว่า Save มากกว่านะโดยมีตัวแปลกำหนดว่าตอนนี้จะ Add หรือ Edit

Code (VB.NET)

            Dim da_save As New SqlDataAdapter
            Dim ds_save As New DataSet
            Dim dr_save As DataRow = Nothing
            Dim sql As String = "select * from tmember where mem_autoid=" & bs(bs.Position)("mem_autoid")
            da_save.SelectCommand = New SqlCommand(sql, Conn)
            da_save.MissingSchemaAction = MissingSchemaAction.AddWithKey
            da_save.Fill(ds_save, "t_mem")
            dr_save = ds_save.Tables("t_mem").Rows.Find(bs(bs.Position)("mem_autoid"))

            Try
                With dr_save
                    .BeginEdit()
                    .Item("memID") = txtmemID.Text

                    .Item("memname") = txtmemname.Text
                    .Item("memlast") = txtmemlast.Text
                    .Item("memBirth") = DateTimePicker.Value
                    .Item("memstatus") = Cint(ChkStatus.Checked)
                    .Item("mememail") = txtmememail.Text

                    .Item("memtel") = txtmemtel.Text
                    .Item("memadd") = txtmemadd.Text
                  
                    .EndEdit()
                    da_save.UpdateCommand = sqlCB.GetUpdateCommand
                    da_save.Update(ds_save.Tables("t_mem"))
                    ds_save.AcceptChanges()


                    Call ShowData()'อันนี้สร้า Sub ขึ้นมาให้โชว์เอนะครับ
                End With
            Catch ex As SqlException
                MessageBox.Show(ex.Message)
            End Try

ผิดพลาดประการใดก็ขออภัยด้วยครับ ด้นสดครับ ไม่ได้ลอรันดู
ปลผมเอาโค้ดเก่าสมันเรียนมาด้นอีกทีครับ สมันเรียนผมใช้ SQL Server แต่ตอนนี้ผมใช้ Mysql ซึ่งการ Save ข้อมูลไม่ใช่แบบนี้นะครับ ตอนนี้ลืมไปหมดละ หวังว่า จขกท. น่าจะเข้าใจและนำไปปรับใช้ได้นะครับ

ประวัติการแก้ไข
2014-11-26 19:18:14

Date : 2014-11-26 19:16:39

By : zarooman

No. 2

fillguro

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

ตอบความคิดเห็นที่ : 1 เขียนโดย : zarooman เมื่อวันที่ 2014-11-26 19:16:39

รายละเอียดของการตอบ ::

ขอบคุณมากค้าบบ

Date : 2014-11-26 19:56:23

By : fillguro

No. 3

fillguro

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

ตอบความคิดเห็นที่ : 1 เขียนโดย : zarooman เมื่อวันที่ 2014-11-26 19:16:39

รายละเอียดของการตอบ ::

Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
        Dim da_save As New SqlDataAdapter
        Dim ds_save As New DataSet
        Dim dr_save As DataRow = Nothing
        Dim sql As String = "select * from Mem where MemID =" & bs(bs.Position)("mem_autoid")
        da_save.SelectCommand = New SqlCommand(sql, Conn)
        da_save.MissingSchemaAction = MissingSchemaAction.AddWithKey
        da_save.Fill(ds_save, "t_mem")
        dr_save = ds_save.Tables("t_mem").Rows.Find(bs(bs.Position)("mem_autoid"))
        Try
            With dr_save
                .BeginEdit()
                .Item("MemID") = TextBox1.Text
                .Item("Memname") = TextBox2.Text
                .Item("Memlast") = TextBox3.Text
                .Item("MemBirth") = DateTimePicker1.Value
                .Item("Memstatus") = CInt(CheckBox1.Checked)
                .Item("Memadd") = TextBox4.Text
                .Item("Mememail") = TextBox5.Text
                .Item("Memtel") = TextBox6.Text
                .EndEdit()
                da_save.UpdateCommand = sqlcb.GetUpdateCommand
                da_save.Update(ds_save.Tables("t_mem"))
                ds_save.AcceptChanges()
                 Call ShowData() 'อันนี้สร้า Sub ขึ้นมาให้โชว์เอนะครับ
            End With
        Catch ex As SqlException
            MessageBox.Show(ex.Message)
        End Try
    End Sub

พอดีผมพึ่งหัดทำอ่ะคับ ถ้าไม่เกินความสามารถ กรุณาบอกหน่อยนะคับ ขอบคุณคับ
Call ShowData() 'อันนี้สร้า Sub ขึ้นมาให้โชว์เอนะครับ
sqlcb < แทนค่าอะไรคับ

Date : 2014-11-26 22:27:48

By : fillguro

No. 4

zarooman

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

อ้อเอาโค้ดมาแค่บางส่วนอิอิ ลืมบันทัดนี้ไป
เอาไปแทรกไว้ บน Try นะ
Code (VB.NET)

Dim sqlCB As New SqlCommandBuilder(da_save)

ปล.ที่จริงสำหรับโปรแกรมเมอร์มือใหม่ผมไม่แนะนำให้ใช้ Try หรอกนะ มันทำให้เข้าใจยากเมื่อมีปัญหาก็จะ หาค่อนข้างยากหน่อย ตอนผมเขียนโค้ดนี้ ผมก็มือใหม่เหมือนกันครับ เขียนสะเปะสะปะไปมั่วเลย อิอิ

ประวัติการแก้ไข
2014-11-26 22:41:05

Date : 2014-11-26 22:40:40

By : zarooman

No. 5

TOR_CHEMISTRY

โพสกระทู้ ( 4,440 )
บทความ ( 23 )

ได้ครบทั้งหมดเลยครับ
ทั้ง Insert delete update เพิ่ม parameter
สะดวกดีไม่ต้องปวดหัวกับ SQL

Date : 2014-11-27 08:58:39

By : lamaka.tor

No. 6

Balll2iFFer

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

ขอนอกเรื่องนะครับ

ชอบไอเดียการตกแต่งโปจเจ็คนี้จังเลย 55+

Date : 2014-11-27 11:07:29

By : nameball

No. 7

zarooman

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

ตอบความคิดเห็นที่ : 6 เขียนโดย : nameball เมื่อวันที่ 2014-11-27 11:07:29

รายละเอียดของการตอบ ::

ผมก็ว่าหน้าตามันฟรุ้งฟริ้ง น่ารักดีนะหุหุ

Date : 2014-11-27 14:26:15

By : zarooman

No. 8

zarooman

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

ตอบความคิดเห็นที่ : 5 เขียนโดย : lamaka.tor เมื่อวันที่ 2014-11-27 08:58:39

รายละเอียดของการตอบ ::

ขอคำแนะนำหน่อยท่าน น่าสนใจดี ไม่เคยใช้เลยอะ

Date : 2014-11-27 14:27:35

By : zarooman

No. 9

TOR_CHEMISTRY

โพสกระทู้ ( 4,440 )
บทความ ( 23 )

ตอบความคิดเห็นที่ : 8 เขียนโดย : zarooman เมื่อวันที่ 2014-11-27 14:27:35

รายละเอียดของการตอบ ::

มันเหมาะสำหรับมือใหม่ครับ
ผมเพิ่งมาจับเรื่อง DB 3 เดือนตอนแรกมีปัญหามากกับ SQL เพราะว่าผมไม่ได้จบมาโดยตรง(พอดีโนบังคับให้ทำ

)
แต่พอลองใช้ data sources ที่ติดมากับ vs 2012 ผมก็ลืมเรื่อง SQL ไปเลย 5555
เราทำงาน DBจะต้องการอะไรมากมายก็แค่ Insert Update Delete Search
แค่ data sources ตัวเดียวก็ครบแระครับ
ตั้งแต่ผมใช้ data sourcesและรู้จักการใส่ parameter ในการค้นหา ผมก็ไม่มีคำถามเกี่ยวกับ SQL อีกเลย
อยากให้มือใหม่ใช้ดู
คร่าวๆก็แค่ add data sources ที่ตั้งการใช้งาน
DS1

เสร็จแระครับเมื่อเราเลือก table ที่ต้องการ มันจะป้อน command,connection,adapter ต่างๆสำหรับ Insert Update Deleteเรียบร้อย
กว่าเราจะรู้เราก็ทำเส็จไป 10 กว่าตารางแล้ว 555
ที่เหลือก็แค่ลากครับ
ถ้าต้องการทั้ง ตารางก็ลากตารางลงฟอร์ม(มันจะเพิ่มทุกอย่างที่จำเป็นต้องใช้งานมาครับ)
DS3

Code (C#)

private void Form1_Load(object sender, EventArgs e)
        {
            // TODO: This line of code loads data into the 'bASEDataSet.Company_Position' table. You can move, or remove it, as needed.
            this.company_PositionTableAdapter.Fill(this.bASEDataSet.Company_Position);
           
        }

        private void company_PositionBindingNavigatorSaveItem_Click(object sender, EventArgs e)
        {
            this.Validate();
            this.company_PositionBindingSource.EndEdit();
            this.tableAdapterManager.UpdateAll(this.bASEDataSet);
        }
///
            // position_NAME_1TextBox
            // 
            this.position_NAME_1TextBox.DataBindings.Add(new System.Windows.Forms.Binding("Text", this.company_PositionBindingSource, "Position_NAME_1", true));
            // position_NAME_2TextBox
            // 
            this.position_NAME_2TextBox.DataBindings.Add(new System.Windows.Forms.Binding("Text", this.company_PositionBindingSource, "Position_NAME_2", true));

พอเราลากมาลงฟอร์ม มันจะ binding ให้เรา และจัดการ type ให้เราหมดเลยครับ
ส่วน SQL ที่แต่ก่อนปวดหัวนักปวดหัวหนามี Query builder จัดการอยู่แล้วและสามารถดูผลได้เลยไม่ต้องเสียเวลามารันโปรแกรมดู
เหมือน SQL ทั่วไป(พอดีงานผมค่อนข้างซับซ้อนครับ บางทีกว่าจะไปถึงหน้าที่ต้องการก็ต้องกดกันเหมื่อยมือเลย)
DS5

และที่ผมชอบมากที่สุดคือการใส่ parameter ซึ่งผมหามานาน
DS6

การใช้งานก็แค่
Code (C#)

this.company_PositionTableAdapter.FillByID(this.bASEDataSet.Company_Position, 2);

อย่างที่บอกครับมันง่ายซะจนนั่งกินเหล้าไปด้วยเขียนไปด้วย 55555

Date : 2014-11-27 16:11:01

By : lamaka.tor

No. 10

fillguro

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

ตอบความคิดเห็นที่ : 9 เขียนโดย : lamaka.tor เมื่อวันที่ 2014-11-27 16:11:01

รายละเอียดของการตอบ ::

55555 ชิวดีคับ ลองทำแปป

Date : 2014-11-27 18:23:39

By : fillguro

No. 11

zarooman

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

ห้าๆๆๆๆ และแล้วผมก็ได้รู้ซักทีว่างานที่ผมรับผิดชอบมานานร่วมสองปีที่ผ่านมานี้ มันใช้อะไรเขียนและทำยังไงเหอๆ ตอนผมรับงานนี้แก้ไขใหม่ๆโคตะระ ปวดหัวเลยครับ
ตอนแรก มานั่งหา Sub Totxt อย่างกะคนบ้า หลังๆมาเริ่มรู้ว่าใช้ Binding เอา หุหุ
คราวนี้รู้เลยว่าไอ้ที่อยู่ในกรอปสีแดงๆนั่น มันมาจากไหน ห้าๆๆ (ปล่อยไก่ไปหลายตัวเลย)

ขอบคุณครับ คราวนี้หละ Get เลย
แต่ดูเหมือนมันจะ ช้าๆนะครับ

หหห

ประวัติการแก้ไข
2014-11-27 19:26:21

Date : 2014-11-27 19:20:12

By : zarooman

No. 12

TOR_CHEMISTRY

โพสกระทู้ ( 4,440 )
บทความ ( 23 )

บอกแล้วว่ามันแหล่ม 555
ต่อกลม 2 ว่างๆเชิญทุกท่านครับ

Date : 2014-11-27 20:08:15

By : lamaka.tor

No. 13

TOR_CHEMISTRY

โพสกระทู้ ( 4,440 )
บทความ ( 23 )

ตอบความคิดเห็นที่ : 11 เขียนโดย : zarooman เมื่อวันที่ 2014-11-27 19:20:12

รายละเอียดของการตอบ ::

ไปแก้ตรง TableAdapter มันให้มาเยอะเกินไปถ้าเก่งๆ SQL ก็แก้ได้สบายครับ
พอดีผมเน้นความสะดวกเป็นหลัก

แค่อยากแนะนำมือใหม่ทุกท่านครับเพราะมันเปน ตำรานำทางได้เยอะพอสมควร

Date : 2014-11-27 20:15:45

By : lamaka.tor

ค้นหาข้อมูล

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

Re : รบกวนช่วย Code: Search,Edit หน่อยคับ vb.net /sql sever

รายละเอียด

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

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

Notice

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

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

โดย

อีเมล์

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

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

Registered : 109,038

document.write("<font color=996600>[.NET]</font>"); รบกวนช่วย Code: Search,Edit หน่อยคับ vb.net /sql sever

No. 1

No. 2

No. 3

No. 4

No. 5

No. 6

No. 7

No. 8

No. 9

No. 10

No. 11

No. 12

No. 13

ค้นหาข้อมูล

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

Notice

รบกวนช่วย Code: Search,Edit หน่อยคับ vb.net /sql sever