|
|
|
ใครก็ได้ช่วยที่ vb.net code insert บันทึกข้อมูลลงใน database |
|
|
|
|
|
|
|
คือ เขียนไปแล้วมันไม่ทำงานครับ
Code (VBScript)
Dim sqlAdd As String = ""
Dim comReserv1 As OleDbCommand = New OleDbCommand
Dim imp_day As String = ""
Try
sqlAdd = "INSERT INTO Booking(rev_no,rev1_id,rev1_Camp,rev1_Company,rev1_prod,rev1_ch,rev1_posi,rev1_imp_d)"
sqlAdd &= " VALUES('" & txt_no.Text & "',"
sqlAdd &= "'" & txt_oder_id.Text & "','" & txt_camp.Text & "','" & txt_company.Text & "','" & txt_product.Text & "',"
sqlAdd &= "'" & txt_ch.Text & "','" & txt_posi.Text & "',"
sqlAdd &= "'" & DataGridView1.Rows(x).Cells("impression/day").ToString & "')"
With Conn
If .State = ConnectionState.Open Then .Close()
.ConnectionString = con
.Open()
End With
With comReserv1
.CommandType = CommandType.Text
.CommandText = sqlAdd
.Connection = Conn
.ExecuteNonQuery()
End With
Next
MessageBox.Show("บันทึกรายการจองเรียบร้อยแล้ว !!!", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ErrProcess As Exception
MessageBox.Show("ไม่สามารถบันทึกรายการได้ เนื่องจาก " & ErrProcess.Message, "ข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Exit Sub
End Try
Tag : .NET, VB.NET, VS 2008 (.NET 3.x), VS 2010 (.NET 4.x), VS 2012 (.NET 4.x)
|
|
|
|
|
|
Date :
2013-02-14 16:57:25 |
By :
notanimore |
View :
1165 |
Reply :
3 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
มี Error หรือเปล่าครับ
|
|
|
|
|
Date :
2013-02-14 17:21:51 |
By :
mr.win |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
ไม่มีครับ
|
|
|
|
|
Date :
2013-02-15 08:33:29 |
By :
notanimore |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
พี่ mr win ครับ ถ้าไม่งั้น
พี่มีวิธี ทำให้ listview สามารถแก้ไขข้อมูลในตารางได้เหมือน gridview หรือป่าวครับ
ถ้าเป็น listview ผมเขียน loop ได้ไม่มีปัญหาครับ
อัน code design listview ของผมครับ
ขอบคุณครับ
Code (VBScript)
lsvBookList.Columns.Add("date", 80, HorizontalAlignment.Left)
lsvBookList.Columns.Add("Product", 100, HorizontalAlignment.Left)
lsvBookList.Columns.Add("Channel", 70, HorizontalAlignment.Left)
lsvBookList.Columns.Add("Position", 90, HorizontalAlignment.Left)
lsvBookList.Columns.Add("Impression/Now", 70, HorizontalAlignment.Right)
lsvBookList.Columns.Add("Impression/day", 70, HorizontalAlignment.Right)
lsvBookList.View = View.Details
lsvBookList.GridLines = True
|
|
|
|
|
Date :
2013-02-15 08:38:17 |
By :
notanimore |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Load balance : Server 02
|