20/02/2008, 15:52
|
 | | | Fecha de Ingreso: noviembre-2002 Ubicación: Puebla, México
Mensajes: 474
Antigüedad: 22 años, 3 meses Puntos: 0 | |
| codigo fuera del .aspx hacia aspx.vb
Hola, inicio a penas con esto del .NET tengo el siguiente codigo para conectarme a una BDMysql y me funciona.
Ahora bien quiero hacer lo mismo pero colocar todo el codigo en el archivo asx.vb y usar esa clase desde mi aspx:
<%@ Page Language="VB" AutoEventWireup="true" CodeFile="newTesting2.aspx.vb" Inherits="_1_newTesting2" Debug="true" %>
Pero como todo el codigo esta en el archivo .vb no sé como imprirlo en mi .aspx
<%@ Page Language="VB" Debug="true" AutoEventWireup="true" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="Mysql.Data.MySqlClient" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<script runat="server">
Dim ver As String
Dim datos As DataTable
Dim cuantos As Integer
Sub Page_Load(ByVal Src As Object, ByVal E As EventArgs)
Dim mysqlConexString As String = "server=localhost; User Id=root; Password=xxxx; Database=xxx;"
'ConnectionStrings : PRIMERAConnectionString()
Dim mysqlConex As New MySqlConnection(mysqlConexString)
mysqlConex.Open()
Dim adap As MySqlDataAdapter = New MySqlDataAdapter("Select * from table limit 10;", mysqlConexString)
datos = New DataTable()
adap.Fill(datos)
ver = mysqlConex.Database
mysqlConex.Close()
'verr = "20"
End Sub
</script>
<html >
<head id="Head1" runat="server">
<title>MYSQL </title>
</head>
<body>
<form id="form1" runat="server">
<div>
<asp:TextBox ID="et" runat="server"></asp:TextBox>
</div>
</form>
<%
cuantos = datos.Rows.Count
Dim i As Integer
For i = 0 To cuantos - 1
Dim idnota, titulo As String
idnota = datos.Rows(i)("idnota").ToString
titulo = datos.Rows(i)("titulo").ToString
Response.Write("idnota-> " & idnota & " titulo-> " & titulo & "<br>")
Next
Response.Write(ver & cuantos & "<hr>")
%>
</body>
</html>
|