|
 |
| |
ช่วยดูให้ผมทีครับมันติด .ExecuteNonQuery() มัน query ไม่ได้เลยครับ |
| |
 |
|
|
 |
 |
|
Dim sqlAdd As String
Dim comAdd As New OleDbCommand
If MessageBox.Show("คุณต้องการเพิ่มปัญหาใหม่ใช่ หรือไม่?", "คำยืนยัน", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
sqlAdd = " INSERT INTO Expert (C_ID,HN,Name,Lastname,Age,Address,Date)"
sqlAdd &= " VALUES ('" & Textcid.Text & "',"
sqlAdd &= "'" & Texthn.Text & "',"
sqlAdd &= "'" & Textname.Text & "',"
sqlAdd &= "'" & Textlast.Text & "',"
sqlAdd &= "'" & Textage.Text & "',"
sqlAdd &= "'" & Textaddr.Text & "',"
sqlAdd &= "'" & dtdate.Value & "')"
With Conn
If .State = ConnectionState.Open Then .Close()
.ConnectionString = strConn
.Open()
End With
With comAdd
.CommandType = CommandType.Text
.CommandText = sqlAdd
.Connection = Conn
.ExecuteNonQuery()
End With
MessageBox.Show("เพิ่มข้อมูลเรียบร้อย !!!", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
End Sub
End Class
Tag : - - - -
|
|
|
 |
 |
 |
 |
| Date :
2009-08-21 10:23:58 |
By :
pop162548 |
View :
1364 |
Reply :
1 |
|
 |
 |
 |
 |
|
|
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
ลองเปลี่ยน ตรง sqlAdd &= "'" & dtdate.Value & "')"
เป็น sqlAdd &= "'" & dtdate.Value .tostring("MM/dd/yyy")& "')"
ผมไม่แน่ใจเหมือนกัน ลองดูก่อนนะครับ
tee
|
| |
|
|
| |
| Date :
2009-08-21 11:32:12 |
By :
lee_latee |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
| |
|
 Load balance : Server 02
|
