สอบถามเรื่องการเซฟข้อมูล หน่อยค่ะ มันเซฟไม่ได้T_T vb.net ค่า
ค่าไม่ถูกต้องครับ ไม่แน่ใจตว่ามีค่าว่างหรือเปล่าครับ
Date :
2011-04-04 11:59:27By :
webmaster
อ๋อ มีค่าว่างค่ะ
Date :
2011-04-04 12:51:41By :
mayapopy
ไม่มีใครมาช่วยเลยT_T
Date :
2011-04-04 14:53:33By :
mayapopy
ลองใส่ข้อมูลให้ครบทุกฟิล์ดที่อยู่บนฟอร์ม
Date :
2011-04-04 15:21:19By :
watcharop
เป็นไปตามที่คุณ หางอึ้งบอกเลย แล้วทำยังไงหรอ????
ประวัติการแก้ไข
Date :
2011-04-04 15:50:02By :
mayapopy
ก็คือ เราสร้างฐานข้อมูลเอาไว้ให้มันรับค่า เป็นตัวเลขน่ะค่ะ
Date :
2011-04-04 16:00:04By :
mayapopy
ลืมบอกไปที่เราให้ฐานข้อมูลมันรับแต่ค่า ตัวเลข เพราะกันความผิดพลาดไปกรอกเป็น ตัวหนังสือน่ะค่ะ
Date :
2011-04-04 16:03:23By :
mayapopy
ถ้า TextBox อันไหนไม่กรอกตัวเลข (เป็นสตริงว่าง) ก็ต้องใส่แบบนี้แทนมั้ง
ประวัติการแก้ไข
Date :
2011-04-04 16:11:51By :
watcharop
ตรง "NumberColumn" ให้ใส่ชื่อ Column ใช่ไหมคะ เช่น รหัสไปรษณีย์ ก็เป็น "EmpPostalCode",dbnull.Value
Date :
2011-04-04 16:25:55By :
mayapopy
1. EmpPostalCode เป็นฟิล์ด Integer?Code (VB.NET) cmd.Parameters.Add("@EmpPostalCode", SqlDbType.Integer, IIf(EmpPostalCodetxt.Text<>"",CTYPE(EmpPostalCodetxt.Text,Integer),DBNull.Value))
Date :
2011-04-04 16:45:55By :
watcharop
ฟิล์ดที่เก็บข้อมูลเบอร์โทร เบอร์แฟ็กซื รหัสไปรษณีย์ ไม่รู้ว่าคุณสร้าง Column เก็บข้อมูลเป็น Text หรือ Number
Date :
2011-04-04 16:52:59By :
watcharop
อ๋อ ใช่ เรากำหนดไว้ใน access แบบนี้
Date :
2011-04-04 16:53:34By :
mayapopy
อ๋อ ค่ะ เดี๋ยวคราวหน้าจะเก็บเป็น Text ให้หมดค่ะ (เปลี่ยนตอนนี้ไม่ทันหรอคะ?)
Date :
2011-04-04 16:55:21By :
mayapopy
อ๋อ ขอบคุณค่า
Date :
2011-04-04 17:05:36By :
mayapopy
' จขกท ไม่ได้ขอ แต่อยากแถมตัวอย่างการใช้ OleDbAdapter, OleDbCommandBuilder เพื่อบันทึกข้อมูล Public Sub SaveData()
Using cn As New OleDbConnection("ConnectString เพื่อเปิดฐานข้อมูล Access")
cn.Open()
Dim da As New OleDbDataAdapter()
da.SelectCommand = New OleDbCommand("SELECT * FROM EmpProfile", cn)
Dim cb As OleDbCommandBuilder = New OleDbCommandBuilder(da)
cb.ConflictOption = ConflictOption.OverwriteChanges
da.InsertCommand = cb.GetInsertCommand(True)
da.InsertCommand.Connection = cn
da.UpdateCommand = cb.GetUpdateCommand(True)
da.UpdateCommand.Connection = cn
da.DeleteCommand = cb.GetDeleteCommand(True)
da.DeleteCommand.Connection = cn
da.Update(YourDataSetInstance, "EmpProfile")
End Using
End Sub
ประวัติการแก้ไข
Date :
2011-04-04 17:23:55By :
watcharop
โค้ดนี้ไว้ใช้บันทึกข้อมูลหรอคะ
Date :
2011-04-05 08:24:46By :
mayapopy
ลองดูแล้วมันขึ้นแล้วนี่น่ะค่ะ
Date :
2011-04-05 09:08:15By :
mayapopy
ทำไงดี เดี๋ยวเราไปเปลี่ยนฐานข้อมูลเป็น text ให้หมดดีไหม
Date :
2011-04-05 09:21:21By :
mayapopy
ต้องเป็นแบบนี้มั้งCode (VB.NET) cmd.Parameters.Add("@EmpPostalCode", OleDbType.Integer, IIf(EmpPostalCodetxt.Text<>"",Int32.Parse(EmpPostalCodetxt.Text),DBNull.Value))
ประวัติการแก้ไข
Date :
2011-04-05 09:23:09By :
watcharop
คือยังงง อยู่ว่าจะเอาไปใช้ตรงไหนน่ะค่ะ
Date :
2011-04-05 10:20:13By :
mayapopy
คราวนี้ขึ้นแบบนี้
Date :
2011-04-05 10:29:34By :
mayapopy
Code (VB.NET) Public Sub SaveData()
If con.State <> ConnectionState.Open Then con.Open()
Dim da As New OleDbDataAdapter()
da.SelectCommand = New OleDbCommand("SELECT * FROM EmpProfile WHERE IDNumber=0", con)
Dim cb As OleDbCommandBuilder = New OleDbCommandBuilder(da)
cb.ConflictOption = ConflictOption.OverwriteChanges
da.InsertCommand = cb.GetInsertCommand(True)
da.InsertCommand.Connection = con
da.UpdateCommand = cb.GetUpdateCommand(True)
da.UpdateCommand.Connection = con
da.DeleteCommand = cb.GetDeleteCommand(True)
da.DeleteCommand.Connection = con
da.Update(data, "EmpProfile")
End Sub
Private Sub Addbtt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Addbtt.Click
Try
Me.SaveData()
Catch ex As Exception
Messagebox.Show(ex.Message)
Finally
con.Close
End Try
End Sub
ประวัติการแก้ไข
Date :
2011-04-05 11:01:40By :
watcharop
ลองแล้ว มันเป็นแบบนี้ค่ะ
Date :
2011-04-05 11:15:01By :
mayapopy
ลองกรอกข้อมูลครบแล้วมันก็ขึ้นแบบนี้เหมือนกัน
Date :
2011-04-05 11:20:57By :
mayapopy
คุณหางอึ่งคะ ? จะขอความกรุณาขอโค้ดตัวอย่าง ตรวจสอบค่า หน่อยนะคะ
Date :
2011-04-05 11:27:33By :
mayapopy
แล้วอย่าลืมแก้โค้ดใน SaveData ด้วยล่ะ
Date :
2011-04-05 11:40:54By :
mayapopy
Server 00
Load balance : Server 00
)
