ขอโค้ดVB2010หน่อยค่ะ

[mkungclub]

ต้องการเพิ่มข้อมูลใน VB 2010 โดยเมื่อกดบันทึกข้อมูลจะไปโชว์ที่ datagrid ด้วย แต่ถ้ากดแก้ไขแล้วบันทึกจะทำการเก็บข้อมูลที่แก้ไขด้วย อยากทราบโค้ดค่ะและในโปรแกรมมีตัว combo box และ calender ด้วยต้องเขียนโค้ดยังไงค่ะ ดิฉันแนบรุปมาด้วยค่ะ ขอบคุณมากๆค่ะ

[snasui]

ที่นี่ไม่มี Code ครับ จำเป็นต้องเขียนมาเองก่อน ติดตรงไหนแล้วค่อยถามกันครับ

[mkungclub]

Option Strict On
Option Explicit On
Imports System.Data
Imports System.Data.OleDb
Public Class main
Dim conn As New OleDbConnection
Dim sqlstr As String
Private OleReader As OleDbDataAdapter
Public Sub conndata()
sqlstr = "Provider=Microsoft.JET.OLEDB.12.0;data source=com_Inventory.accdb"
With conn
If .State = ConnectionState.Open Then .Close()
.ConnectionString = sqlstr
.Open()
End With

End Sub
Private Sub add_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles add.Click
conndata()
sqlstr = "INSERT INTO Com_Regis (IT_assetcode,assetcode,serial_pc,model_pc,ID_brand,windows,windows_key,computer_type,warranty_status,enddate,buy_date,admin_add,date_add,admin_update,date_update,IT_status) VALUES ('" & itasset.Text & "','" & asset.Text & "','" & serial_pc.Text & "','" & model_pc.Text & "','" & id_brand.Text & "','" & windows_os.Text & "','" & os_key.Text & "','" & comtype.Text & "','" & war_status.Text & "','" & date_end.Text & "','" & date_buy.Text & "','" & add_admincr.Text & "','" & add_date.Text & "','" & admin_up.Text & "','" & date_up.Text & "','" & status_it.Text & "')"
Dim OleCommand As New OleDbCommand(sqlstr, conn)
OleReader = OleCommand.ExecuteReader
conn.Close()
End Sub
End Class

[snasui]

ลองดูตัวอย่างทีนี่ครับ
Part1


Part2

[mkungclub]

ขอบคุณมากค่ะ แล้วถ้าเป็นcalendar เราต้องเขียนยังไงอ่ะค่ะ

[snasui]

Calendar มี Control มาให้อยู่แล้วนี่ครับ ไม่ทราบว่าต้องการเขียนอะไร อย่างไรครับ

[mkungclub]

ให้มันบันทึกวันที่ลงไปในฐานข้อมูลด้วยอ่ะค่ะ

[snasui]

การบันทึกจาก Control ลงฐานข้อมูลน่าจะเหมือนกันไม่ว่าจะเป็นจาก ListBox, TextBox, ComboBox, DateTimePicker ฯลฯ ไม่ทราบว่าติดปัญหาตรงไหนครับ

[mkungclub]

มันerrorตรงนี้ค่ะ ไม่ทราบว่าต้องแก้ไขยังไงค่ะ

[snasui]

ลองแนบ Code มาด้วยครับ ภาพที่แนบมานั้นมองไม่เห็น หากแนบ Project มาได้ก็จะยิ่งดีครับ