 |
|
Code (VB.NET)
Dim sqlADD As String 'เก็บคำสั่ง sql สำหรับเพิ่มข้อมูล
Dim cm As New OleDbCommand
sqlADD = "INSERT INTO tb_onet(std_id,th,mt,sn,sc,gt,at,tg,eg,onet_point)"
sqlADD &= "VALUES ('" & std_id.Text & "', '" & th.Text & "' , '" & mt.Text & "' , '" & sn.Text & "' , '" & sc.Text & "' , '" & gt.Text & "' , '" & at.Text & "' , '" & tg.Text & "' , '" & eg.Text & "' , '" & onet_point.Text & "')"
'sqlADD &= "VALUES(&std_id,th,mt,sn,sc,gt,at,tg,eg,onet_point)"
'ใช้ oledbcommand ในการเพิ่มข้อมูล
If MessageBox.Show("คุณต้องการลงทะเบียนใช่หรือไม่?", "ยืนยัน", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
With cm
.CommandType = CommandType.Text
.CommandText = sqlADD
.Connection = objConn
.ExecuteNonQuery()
End With
|
 |
 |
 |
 |
Date :
2013-11-21 15:53:27 |
By :
unlove21 |
|
 |
 |
 |
 |
|
|
 |