 |
| |
อยากได้ Code สำหรับ Update ข้อมูล ลงใน Datagridview VB 2008 ครับ |
| |
 |
|
|
 |
 |
|
ขอบคุณคร้าบบ แต่ไม่รุเรื่องเลย ชื่อของ เป็น โค้ด VB 2008 ตรงเลยได้มั้ยครับ ขอบพระคุณมากๆ
|
 |
 |
 |
 |
| Date :
2010-08-22 22:30:46 |
By :
irine |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
จะเขียนโค้ก ยังไงครับ สำหรับ ปุ่ม ลบ กับ ปุ่ม แก้ไขครับ
ผมใช้ VB 2008 ฐานข้อมูลเป็น Mysql ครับ
ตอนนี้ง งง มากๆๆ เพราะมือใหม่ๆ ซิงๆ ครับ ยังประยุกต์อะไรไม่ค่อยเป็นเลย
โค้ดที่ทำปุ่ม แกไข นะครับ
Private Sub Bedt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bedt.Click
Dim sql1 As String = "Server=localhost;User Id=jd1;Password=1234;Database=test"
Dim conn1 As New MySqlConnection(sql1)
conn1.Open()
Dim sqlcmd1 As String = "1 "
Dim cmd1 As New MySqlCommand(sqlcmd1, conn1)
Dim adapter1 As New MySqlDataAdapter(cmd1)
Dim data1 As New DataSet()
sqlcmd1 = "UPDATE test1 SET"
sqlcmd1 &= "ID =@id, Name =@nm, Tel=@tel"
sqlcmd1 &= "WHERE ID =" & TbxID.Text
cmd1 = New MySqlCommand(sqlcmd1, conn1)
cmd1.Parameters.AddWithValue("@id", TbxID.Text)
cmd1.Parameters.AddWithValue("@nm", TbxName.Text)
cmd1.Parameters.AddWithValue("@tel", TbxTel.Text)
cmd1.ExecuteNonQuery() <<<<<<<<<<< Error ตรงนี้ ว่า "Fatal error encountered during command execution."
End Sub
หรือ ท่านทั้งหลายจะช่วยเขียนโค้ดให้ใหม่เลยก็ดีครับ
|
ประวัติการแก้ไข
2010-08-23 04:39:44
2010-08-23 04:40:28
| |
|
|
| |
| Date :
2010-08-23 04:37:24 |
By :
irine |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
|
| |
|
|
| |
| Date :
2010-09-28 11:29:12 |
By :
123 |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ผมมำแบบนี้ครับ ทำ datagridview ตัวนี้ เป็น Datatable แล้วนะ Datatable ไปวัน Update ครับ
dim dtData as datatable
dtData = CType(datagridview1.DataSource, DataTable)
นำ datatable ไป นำไป Insert ,Update หรือ delete ก็สุดแล้วแต่ครับ
For Each row As DataRow In dtData .Rows
If row.RowState <> DataRowState.Deleted Then
sbSql = New System.Text.StringBuilder()
sbSql.Append("INSERT INTO ABC_TABLE ")
sbSql.Append(" ID, ")
sbSql.Append(" NAME, ")
sbSql.Append(" ADDRESS ")
sbSql.Append("VALUES ( ")
sbSql.Append(" :pId, ")
sbSql.Append(" :pName, ")
sbSql.Append(" :pAddress ")
sbSql.Append(") ")
command.CommandText = sbSql.ToString()
command.Parameters.Clear()
command.Parameters.Add("pId", iDocId)
command.Parameters.Add("pName", row("PART_ID"))
command.ExecuteNonQuery()
End If
Next
|
| |
|
|
| |
| Date :
2010-09-28 11:43:26 |
By :
Pongpijit |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
