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 Tag
Date :
2009-05-29 20:02:47By :
silver.serView :
1536Reply :
6
ดูจากใน Code ก็น่าจะได้น่ะครับ
Date :
2009-05-30 06:47:49By :
webmaster
ไม่ออกครับ แต่สามารถ update ได้ จะขึ้นเฉพาะ ที่ lblStatus=CuctomerID อย่างเดียวครับ
Date :
2009-05-30 12:11:11By :
silver.ser
โค้ดนั่น asp.net รึป่าวครับ มันแปลกๆนะ ยิ่งตรง import อะไรนี่ยิ่งงง asp มี import แบบนี้ด้วยเหรอ
Date :
2009-05-31 19:23:25By :
mr.v
ผมก้อว่าน่าจะเป็น .net มากกว่านะ
Date :
2009-06-01 13:53:06By :
jumbo666
จะเอาข้อมูลมาจากฐานข้อมูลหรอ?
Date :
2009-06-03 19:29:56By :
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:57By :
webmaster
Server 05
Load balance : Server 05
