 |
| |
ช่วยดูโค้ดให้หน่อยค่ะSQL คือว่า เขียนไปตามนี้แล้วมันไม่บันทึกข้อมูลให้อ่ะค่ะ ใครรู้ช่วยบอกให้ทีนะคะว่าตกหล่นตรงไหน |
| |
 |
|
|
 |
 |
|
คือว่า........................................
เขียนไปตามนี้แล้วมันไม่บันทึกข้อมูลให้อ่ะค่ะ ใครรู้ช่วยบอกให้ทีนะคะว่าตกหล่นตรงไหน
หรือว่าเขียนส่วนไหนผิดไปอ่ะค่ะ???
Imports System.Data.SqlClient
Imports System.Data
Partial Class _Default
Inherits System.Web.UI.Page
Protected Sub btnOk_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnOK.Click
lblname1.Text = txtname.Text
lblsname1.Text = txtsname.Text
lblsex1.Text = DropDownList1.SelectedValue
lbladdr1.Text = txtaddr.Text
lblemail1.Text = txtemail.Text
lblid1.Text = txtID.Text
lblpass1.Text = txtpass.Text
'Connectoin
Dim strConnectionString As String = _
"Data Source=202.29.52.59;Initial Catalog=it46042970151;User ID=itsql46042970151 Password=1234"
Dim objConnection As New SqlConnection(strConnectionString)
Dim txtSQLcommand As String = "Insert into Regist.MDF ( name,sname,sex,address,email,id,password) values ()"
'Command"
Dim objCommand As New SqlCommand(txtSQLcommand, objConnection)
objCommand.CommandType = Data.CommandType.Text
Dim objDataAdapter As New SqlDataAdapter
Dim objDataset As New DataSet
objDataAdapter.SelectCommand = objCommand
'Open
Try
objCommand.Parameters.Add("@name", SqlDbType.VarChar, 50).Value = txtname.Text
objCommand.Parameters.Add("@surname", SqlDbType.VarChar, 50).Value = txtsname.Text
objCommand.Parameters.Add("@sex", SqlDbType.VarChar, 10).Value = DropDownList1.SelectedValue
objCommand.Parameters.Add("@address", SqlDbType.VarChar, 100).Value = txtaddr.Text
objCommand.Parameters.Add("@email", SqlDbType.VarChar, 50).Value = txtemail.Text
objCommand.Parameters.Add("@id", SqlDbType.VarChar, 50).Value = txtID.Text
objCommand.Parameters.Add("@password", SqlDbType.VarChar, 50).Value = txtpass.Text
objDataAdapter.Fill(objDataset)
Catch SQLDbExceptionErr As SqlException
' lblError.Text = SQLDbExceptionErr.Message
End Try
'Clenup
objCommand.Dispose()
objCommand = Nothing
objDataAdapter.Dispose()
objDataAdapter = Nothing
objDataset.Dispose()
objDataset = Nothing
End Sub
End Class
ขอบพระคุณอย่าสูง  
Tag : - - - -
|
|
|
 |
 |
 |
 |
| Date :
29 ส.ค. 2549 19:59:07 |
By :
AkiRaJung |
View :
1841 |
Reply :
2 |
|
 |
 |
 |
 |
|
|
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
Insert into Regist.MDF ( name,sname,sex,address,email,id,password) values ()"
ตรงนี้คำสั่งจะต้องเป็นแบบนี้ครับ
insert into Regist ( name,sname,sex,address,email,id,password) values (ฟิวส์ที่ต้องการใส่)"
|
| |
|
|
| |
| Date :
30 ส.ค. 2549 11:21:54 |
By :
kao |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ถึงคุณ kao
.....................ขอบคุณมากนะค่ะ..........ได้แล้วอ่ะค่ะ 
|
| |
|
|
| |
| Date :
1 ก.ย. 2549 01:31:00 |
By :
AkiRaJung |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
