Hola a todos Soy un Principiante en el mundo de la programacion. Por lo pronto he hestado haciendo un programa en VB que me muestra los datos de una BD de MySQL pero me los inserte dentro de un Carnet para luego poderlo imprimir , lo que he realizado hasta ahora es poder loguearme en MySQL, y realizar la consulta lo que no se es como acer el array que me recupera los datos de la base de datos, y luego hacer que estos datos me los escriba en unos textBox. este procedimiento lo realice mediante PHP de la Siguiente forma, hice el <img src> del formato vacio del carnet y luego mediante <layer> ubique los campos de texto encima de la imagen y luego con este codigo PHP traigo los datos:
<?
include "conexion.php";
$result=mysql_query("SELECT * FROM estudiantes Where cc='{$_POST['cc']}'ORDER BY cc",
$conexion);
while($row=mysql_fetch_row($result)){
echo"$cc}<div class=Estilo21 id=Layer24>
<div align=center>31- Dic- 2008 </div>
</div>
<div id=Layer25><img src='' width=126 height=143 /></div>
$cc}
<div id=Layer16><img src=archivos/CARNE.jpg alt=Carnet estudiante width=342 height=208 /></div>
<div id=Layer18>
<div align=center class=Estilo15 >$row[0]</div>
</div>
<div id=Layer19>
<div align=right class=Estilo16>
<div align=center class=Estilo19>$row[7]</div>
</div>
</div>
<div class=Estilo18 id=Layer21>$row[2] $row[1]</div>
<div id=Layer22>
<div align=center><strong><span class=Estilo17>$row[3]</span></strong></div>
</div>";
}
include "cerrar_conexion.php";
?>
la Idea es hacer algo igual con VB2005 entonces he usado este codigo ojala me puedan ayudar:
Imports MySql.Data.MySqlClient
Public Class frmCarnet
Dim con As MySqlConnection
Dim objDataAdapter As MySqlDataAdapter
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim bConexionExitosa As Boolean = True
Dim servidor As String = "192.168.0.254"
Dim usuario As String = "SECRETARIA"
Dim contraseña As String = "password=123456"
Dim database As String = "database=asuhebrapa"
con = New MySqlConnection()
con.ConnectionString = "server=" & servidor & ";" _
& "user id=" & usuario & ";" & contraseña & ";" & database & ""
Try
'Abrimos la conexión y comprobamos que no hay error
con.Open()
Catch ex As MySqlException
'Si hubiese error en la conexión mostramos el texto de la descripción
MsgBox(ex.Message.ToString)
bConexionExitosa = False
End Try
Dim strSQL As String
Dim registro As Integer
strSQL = "SELECT * FROM estudiantes WHERE cc ="" & cc.Text & ""ORDER BY cc"
If cc.Text = "" Then
MsgBox("Ingrese el numero de identificación del Alumno")
cc.Focus()
Exit Sub
End If
'aqui es donde supongo que va el Codigo que genera el array verdad
If registro > 0 Then
txtNombre.Text = " aqui es donde tiene que quedar el nombre"
Else
MsgBox("No Existe el Estudiante...")
End If
End Sub
End Class
La Cuestion es que se que si conecta pero no se como mostrar los datos dento de un textBox.
Gracias de antemano espero que mi pregunta quede clara.