Excel Forum

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

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

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


Part2

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

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

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

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

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

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