 |
| |
การ inser tข้อมูล โดยเลือกใน DropDownlist...คือเวลาเลือกแล้วมันinsert ได้แต่ค่าแรกไม่ว่าเราจะเลือกอันไหนมันก็insertแต่ค่าแรกค่ะ |
| |
 |
|
|
 |
 |
|
strSQL = "INSERT INTO tb_book(book_id,book_name,book_by,book_number,book_detail,book_price,type_id)"
strSQL &= " VALUES ('" & txtbook_id.Text & "',"
strSQL &= "'" & txtbook_name.Text & "',"
strSQL &= "'" & txtbook_by.Text & "',"
strSQL &= "'" & txtbook_number.Text & "',"
strSQL &= "'" & txtbook_detail.Text & "',"
strSQL &= "'" & txtbook_price.Text & "',"
strSQL &= "'" & Me.listtype_id.SelectedItem.Value & "')"
With objCmd
.Connection = objCon
.CommandText = strSQL
.CommandType = CommandType.Text
End With
Try
objCmd.ExecuteNonQuery()
Me.lblstatus.Text = "บันทึกข้อมูลเรียบร้อยแล้ว"
Me.lblstatus.Visible = True
Response.Redirect("frm_insert.aspx")
Catch ex As Exception
Me.lblstatus.Visible = True
Me.lblstatus.Text = " ไม่สามารถบันทึกข้อมูลได้(" & ex.Message & ")"
End Try
ช่วยดูให้ทีค่ะ เวลา inser tข้อมูล ใน DropDownlist คือเวลาเลือกแล้วมันinsert ได้แต่ค่าแรกไม่ว่าเราจะเลือกอันไหนมันก็insertแต่ค่าแรกค่ะ คัยก็ได้ช่วยทีค่ะ ต้องการด่วนมากเลยค่ะ
Tag : - - - -
|
|
|
 |
 |
 |
 |
| Date :
2010-01-17 16:15:06 |
By :
neenarat |
View :
1854 |
Reply :
6 |
|
 |
 |
 |
 |
|
|
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
น่าจะผิดตอน select ข้อมูลออกมาแสดงที่ DropDownlist นะครับ
เช่น เวลา select ข้อมูลมาจาก database เพื่อ แสดงใน DropDownlist ให้ เขียน โค๊ดประมาณนี้ ครับ
dim strsql="select typeid,typename from booktype"
dim dt as datatable
dt=getDatatable(strsql)
combobox.ValueMember = "typeid"
combobox.DisplayMember = "typename "
combobox.DataSource = dt
|
| |
|
|
| |
| Date :
2010-01-17 18:44:12 |
By :
msorawich |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
คือว่า select มาแล้วค่ะมันก็มีให้เลือกนะค่ะแต่เวลาเลือกไปแล้วไปดูในฐานข้อมูลมันก็เป็นค่าแรกไม่เป็นค่าที่เราเลือกไปค่ะ
|
| |
|
|
| |
| Date :
2010-01-17 21:58:19 |
By :
neenarat |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
แต่โค้ดที่ select เป็นอย่างนี้ค่ะพี่ช่วยแก้ให้หน่อยนะได้ป่าวค่ะแล้วโค้ดที่ให้ดูนี่มันใช่อ่ะเปล่าค่ะ
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim objCon As OleDbConnection
Dim dtAdapter As OleDbDataAdapter
Dim dt As New DataTable
Dim strCon As String
strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("App_Data/mydatabase.mdb") & ";"
objCon = New OleDbConnection(strCon)
objCon.Open()
Dim strSQL As String
strSQL = "SELECT *FROM tb_type"
dtAdapter = New OleDbDataAdapter(strSQL, objCon)
dtAdapter.Fill(dt)
dtAdapter = Nothing
objCon.Close()
objCon = Nothing
With Me.listtype_id
.DataSource = dt
.DataTextField = "type_name"
.DataValueField = "type_id"
.DataBind()
End With
listtype_id.SelectedIndex = listtype_id.Items.IndexOf(listtype_id.Items.FindByValue("type_id"))
End Sub
ส่วนอันนี้เป็นส่วนที่ insert ค่ะ
Protected Sub save_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles save.Click
Dim strConn As String
Dim strSQL As String
Dim objCmd As New OleDbCommand
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("App_Data/mydatabase.mdb") & ";"
Dim objCon As New OleDbConnection(strConn)
objCon.Open()
strSQL = "INSERT INTO tb_book(book_id,book_name,book_by,book_number,book_detail,book_price,type_id)"
strSQL &= " VALUES ('" & txtbook_id.Text & "',"
strSQL &= "'" & txtbook_name.Text & "',"
strSQL &= "'" & txtbook_by.Text & "',"
strSQL &= "'" & txtbook_number.Text & "',"
strSQL &= "'" & txtbook_detail.Text & "',"
strSQL &= "'" & txtbook_price.Text & "',"
strSQL &= "'" & Me.listtype_id.SelectedItem.Value & "')"
With objCmd
.Connection = objCon
.CommandText = strSQL
.CommandType = CommandType.Text
End With
Try
objCmd.ExecuteNonQuery()
Me.lblstatus.Text = "บันทึกข้อมูลเรียบร้อยแล้ว"
Me.lblstatus.Visible = True
Response.Redirect("frm_insert.aspx")
Catch ex As Exception
Me.lblstatus.Visible = True
Me.lblstatus.Text = " ไม่สามารถบันทึกข้อมูลได้(" & ex.Message & ")"
End Try
|
| |
|
|
| |
| Date :
2010-01-17 22:06:56 |
By :
neenarat |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
strSQL &= "'" & Me.listtype_id.SelectedItem.Value & "')"
ลองเปลี่ยนเป็น
strSQL &= "'" & Me.listtype_id.SelectedText & "')"
|
| |
|
|
| |
| Date :
2010-01-21 15:42:59 |
By :
numenoy |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
เกิดจากตอนที่ Page_Load() มันไปทำ Sub ของ DropDownList อีกครั้งน่ะครับ จะต้องดักด้วยตัวนี้ครับ
Code (VB.NET)
IF NOT Page.IsPostBack() Then
BindDropdownlist
End IF
|
| |
|
|
| |
| Date :
2010-08-05 17:35:53 |
By :
webmaster |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ตามที่ท่าน NO.5 (Mr.Win) บอกครับ
เพราะถ้าทำการกดปุ่ม Insert เสร็จแล้ว
ก่อนไปทำงานใน Sub Insert เพจจะทำการเข้ามาทำงานใน Sub Page_Load ก่อนครับแล้วถึงจะไป Sub insert
ทำให้ dropdownlist ของเรามีการโหลดค่าจากฐานข้อมูลใหม่ทุกครั้ง
แล้วไปเจอคำสั่งเซ็ตให้เลือก index แรกของ dropdown ครับ
Code (VB.NET)
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim objCon As OleDbConnection
Dim dtAdapter As OleDbDataAdapter
Dim dt As New DataTable
'ใส่ตรงนี้เพิ่มครับ
IF NOT Page.IsPostBack() Then
Dim strCon As String
strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("App_Data/mydatabase.mdb") & ";"
objCon = New OleDbConnection(strCon)
objCon.Open()
Dim strSQL As String
strSQL = "SELECT *FROM tb_type"
dtAdapter = New OleDbDataAdapter(strSQL, objCon)
dtAdapter.Fill(dt)
dtAdapter = Nothing
objCon.Close()
objCon = Nothing
With Me.listtype_id
.DataSource = dt
.DataTextField = "type_name"
.DataValueField = "type_id"
.DataBind()
End With
listtype_id.SelectedIndex = listtype_id.Items.IndexOf(listtype_id.Items.FindByValue("type_id"))
end if
End Sub
|
ประวัติการแก้ไข
2010-08-06 09:13:10
2010-08-06 09:15:11
| |
|
|
| |
| Date :
2010-08-06 09:11:29 |
By :
nickyshox99 |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
