Private Sub btnupdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnupdate.Click
Dim strcon As String
strcon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\acdb.mdb"
With conn
If .State = ConnectionState.Open Then .Close()
.ConnectionString = strcon
.Open()
End With
Dim sql As String
Dim sqlcom As New OleDbCommand
Dim test As String
sql = "select * from account where ac_id = '" & txtacid.Text & "' "
With sqlcom
.CommandType = CommandType.Text
.CommandText = sql
.Connection = conn
dr = .ExecuteReader
If dr.HasRows Then
dtacdetail = New DataTable
dtacdetail.Load(dr)
test = dtacdetail.Rows(1)("acd_id") << ส่วนนี้คือส่วนที่ผมลองใส่ตัวแปร
Label2.Text = test << อันนี้คือส่วนที่ต้องการไว้ดูผล
Else
dgvacdetial.DataSource = Nothing
End If
dr.Close()
End With
End Sub
Sub Page_Load(sender As Object, e As EventArgs)
strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("database/mydatabase.mdb")&";Jet OLEDB:Database Password=;"
objConn.ConnectionString = strConnString
objConn.Open()
IF Not Page.IsPostBack() Then
ViewData()
End IF
End Sub
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
Load balance : Server 00
