 |
| |
ASP.NET อยากให้ข้อมูล Database (Access.mdb) มาโชว์ที่ Textbox ครับ |
| |
 |
|
|
 |
 |
|
ผมดูที่บทเรียนแล้วมันไม่ออกครับ
Imports System.Data.OleDb
Imports System.Data
Partial Class Default2
Inherits System.Web.UI.Page
Dim objConn As New OleDbConnection
Dim objCmd As New OleDbCommand
Dim dtReader As OleDbDataReader
Dim strConnString, strSQL As String
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("~/App_Data/mydatabase.mdb") & ";Jet OLEDB:Database Password=;"
objConn.ConnectionString = strConnString
objConn.Open()
If Not Page.IsPostBack() Then
ViewData()
End If
End Sub
Sub ViewData()
strSQL = "" & Request.QueryString("CustomerID") & " "
Me.txtCustomerID.Visible = True
Me.txtCustomerID.Text = "" & strSQL
Exit Sub
objCmd = New OleDbCommand(strSQL, objConn)
dtReader = objCmd.ExecuteReader()
If dtReader.HasRows Then
Me.txtCustomerID.Text = dtReader.Item("")
Me.txtName.Text = dtReader.Item("Name")
Me.txtEmail.Text = dtReader.Item("Email")
Me.txtCountryCode.Text = dtReader.Item("CountryCode")
Me.txtBudget.Text = dtReader.Item("Budget")
Me.txtUsed.Text = dtReader.Item("Used")
End If
End Sub
Sub btnSave_Click(ByVal sender As Object, ByVal e As EventArgs)
strSQL = "UPDATE customer SET " & _
" CustomerID = '" & Me.txtCustomerID.Text & "' " & _
" ,Name = '" & Me.txtName.Text & "' " & _
" ,Email = '" & Me.txtEmail.Text & "' " & _
" ,CountryCode = '" & Me.txtCountryCode.Text & "' " & _
" ,Budget = '" & Me.txtBudget.Text & "' " & _
" ,Used = '" & Me.txtUsed.Text & "' " & _
" WHERE CustomerID = '" & Request.QueryString("CustomerID") & "' "
objCmd = New OleDbCommand
With objCmd
.Connection = objConn
.CommandText = strSQL
.CommandType = CommandType.Text
End With
Me.pnlAdd.Visible = False
Try
objCmd.ExecuteNonQuery()
Me.lblStatus.Text = "Record Updated"
Me.lblStatus.Visible = True
Catch ex As Exception
Me.lblStatus.Text = "Record can not update"
End Try
End Sub
Sub Page_UnLoad()
objConn.Close()
objConn = Nothing
End Sub
??_________________________________
ให้โชว์ที่ Textbox (CustomerID,Name,Email,CountryCode,Budget,Used)
Tag : - - - -
|
|
|
 |
 |
 |
 |
| Date :
2009-05-29 20:02:47 |
By :
silver.ser |
View :
1574 |
Reply :
6 |
|
 |
 |
 |
 |
|
|
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
ดูจากใน Code ก็น่าจะได้น่ะครับ
|
| |
|
|
| |
| Date :
2009-05-30 06:47:49 |
By :
webmaster |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ไม่ออกครับ แต่สามารถ update ได้ จะขึ้นเฉพาะ ที่ lblStatus=CuctomerID อย่างเดียวครับ
|
| |
|
|
| |
| Date :
2009-05-30 12:11:11 |
By :
silver.ser |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
โค้ดนั่น asp.net รึป่าวครับ มันแปลกๆนะ ยิ่งตรง import อะไรนี่ยิ่งงง asp มี import แบบนี้ด้วยเหรอ 
|
| |
|
|
| |
| Date :
2009-05-31 19:23:25 |
By :
mr.v |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ผมก้อว่าน่าจะเป็น .net มากกว่านะ
|
| |
|
|
| |
| Date :
2009-06-01 13:53:06 |
By :
jumbo666 |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
จะเอาข้อมูลมาจากฐานข้อมูลหรอ?
ทำไมท่านไม่ใช้คำสั่ง SELECT เลยหล่ะ
จะเอามาได้ไง
|
| |
|
|
| |
| Date :
2009-06-03 19:29:56 |
By :
piyawattop |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
Code (VB.NET)
Sub ViewData()
'*** DataTable ***'
Dim dtAdapter As OleDbDataAdapter
Dim dt As New DataTable
strSQL = "SELECT * FROM customer WHERE CustomerID = '"& Request.QueryString("CustomerID") &"' "
dtAdapter = New OleDbDataAdapter(strSQL, objConn)
dtAdapter.Fill(dt)
If dt.Rows.Count > 0 Then
Me.txtCustomerID.Text = dt.Rows(0)("CustomerID")
Me.txtName.Text = dt.Rows(0)("Name")
Me.txtEmail.Text = dt.Rows(0)("Email")
Me.txtCountryCode.Text = dt.Rows(0)("CountryCode")
Me.txtBudget.Text = dt.Rows(0)("Budget")
Me.txtUsed.Text = dt.Rows(0)("Used")
End IF
End Sub
Go to : ASP.NET Microsoft Access Edit/Update Record
|
| |
|
|
| |
| Date :
2011-06-09 21:44:57 |
By :
webmaster |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
