pagina 2:Código: vb.net
Sub queryString() Dim objConn1 As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source= C: ....... /prueba.mdb") Dim objQue As New OleDbCommand Dim targetURL As String Dim tem As String = "SELECT MAX (Id_cliente) FROM cliente;" objQue = New OleDbCommand(tem, objConn1) objConn1.Open() tem = objQue.ExecuteNonQuery().ToString objConn1.Close() targetURL = "default2.aspx?" targetURL &= "tem=" & tem.Trim Response.Redirect(targetURL) End Sub
Código: vb.net
Protected Sub TextIdClie_PreRender(ByVal sender As Object, ByVal e As System.EventArgs) TextIdClie.Text = Request.QueryString("tem").ToString() End Sub