Para Leocam tu recordset
Publicado por RCelada (128 intervenciones) el 15/01/2007 16:59:30
Te mando esto para ver si te sirve:
Te lo envie en la otra pregunta pero te lo dejo aqui para que no te cueste trabajo buscar
Bien amigo, ahi vamos.
Lo que hice fue de lo mas sencillo y lo encontre en un libro llamado Aprenda Visual Basic en 21 Dias.
El detalle esta en que debes agregar un objeto de la caja de herramientas llamado Adodc y que en lista de componentes lo encuentras con la leyenda
Microsoft ADO data control 6.0 (OLEDB), bien me refiero a que este objeto lo vas a usar como un recorset para almacenar solo la consulta ya que no lo vas a vincular con ninguna tabla, solo conectarlo con la propiedad ConnectionString a la base de datos en cuestion o la de uso, aqui vas a tener que establecer una cadena de conexion por medio de ODBC, no del jet de la BD; en la propiedad del objeto que estamos trabajando llamada RecordSource despliega una ventana misma en la que la opcion Tipo de comando desplegamos una lista y seleccionamos [8-adCmdUnknown] y debajo aparece el cuadro de lista donde vamos a introducir un query sencillo donde solo haces referencia al campo que necesitas y a que tabla pertenece ejemplo "SELECT Localidad FROM Localidades" despues hecho esto vamos a establecer dentro del codigo del objeto Combobox en el procedimiento de evento que mejor te acomode, yo lo puse en "Lostfocus" pero esto depende del que tu necesites, y en este mismo incluyo el siguiente codigo:
'Meto mis variables de tipo String
Dim strSeccion As String
Dim strSQL As String
'
strSeccion = dcboSeccionRUAC.BoundText 'El resultado de la seleccion que hice del combo box lo almaceno en una variable
strSQL = "SELECT Localidad, Nom_Loca, Distrito, Tipo, Municipio, Nom_Mun FROM Localidades WHERE Seccion =" & strSeccion 'concateno la variable al query cerrando mis comillas y con & junto la variable de arriba
adoLocalidades.RecordSource = strSQL 'Meto al RecordSource el query para que lo interprete como tal en el objeto Adodc vacio que te mencione
adoLocalidades.Refresh 'Actualizo el resultado de la consulta
Y esto me da como resultado todos los campos que quiero sacar de esta consulta ya que si te das cuenta los ordeno dentro del query.
Si deseas ver el resultado del query puedes hacerlo con un objeto DataGrid conectado a la base de datos por medio de la propiedad DataSource del objeto Adodc donde se almacena la consulta.
Ahora mi detalle es que tengo que averiguar como manipular la informacion que se encuentra dentro de la consulta hecha, es decir desplazarme dentro de los registros y campos para sacar los que necesito e incluirlos en la tabla donde van a quedar de manera permanente.
Te lo envie en la otra pregunta pero te lo dejo aqui para que no te cueste trabajo buscar
Bien amigo, ahi vamos.
Lo que hice fue de lo mas sencillo y lo encontre en un libro llamado Aprenda Visual Basic en 21 Dias.
El detalle esta en que debes agregar un objeto de la caja de herramientas llamado Adodc y que en lista de componentes lo encuentras con la leyenda
Microsoft ADO data control 6.0 (OLEDB), bien me refiero a que este objeto lo vas a usar como un recorset para almacenar solo la consulta ya que no lo vas a vincular con ninguna tabla, solo conectarlo con la propiedad ConnectionString a la base de datos en cuestion o la de uso, aqui vas a tener que establecer una cadena de conexion por medio de ODBC, no del jet de la BD; en la propiedad del objeto que estamos trabajando llamada RecordSource despliega una ventana misma en la que la opcion Tipo de comando desplegamos una lista y seleccionamos [8-adCmdUnknown] y debajo aparece el cuadro de lista donde vamos a introducir un query sencillo donde solo haces referencia al campo que necesitas y a que tabla pertenece ejemplo "SELECT Localidad FROM Localidades" despues hecho esto vamos a establecer dentro del codigo del objeto Combobox en el procedimiento de evento que mejor te acomode, yo lo puse en "Lostfocus" pero esto depende del que tu necesites, y en este mismo incluyo el siguiente codigo:
'Meto mis variables de tipo String
Dim strSeccion As String
Dim strSQL As String
'
strSeccion = dcboSeccionRUAC.BoundText 'El resultado de la seleccion que hice del combo box lo almaceno en una variable
strSQL = "SELECT Localidad, Nom_Loca, Distrito, Tipo, Municipio, Nom_Mun FROM Localidades WHERE Seccion =" & strSeccion 'concateno la variable al query cerrando mis comillas y con & junto la variable de arriba
adoLocalidades.RecordSource = strSQL 'Meto al RecordSource el query para que lo interprete como tal en el objeto Adodc vacio que te mencione
adoLocalidades.Refresh 'Actualizo el resultado de la consulta
Y esto me da como resultado todos los campos que quiero sacar de esta consulta ya que si te das cuenta los ordeno dentro del query.
Si deseas ver el resultado del query puedes hacerlo con un objeto DataGrid conectado a la base de datos por medio de la propiedad DataSource del objeto Adodc donde se almacena la consulta.
Ahora mi detalle es que tengo que averiguar como manipular la informacion que se encuentra dentro de la consulta hecha, es decir desplazarme dentro de los registros y campos para sacar los que necesito e incluirlos en la tabla donde van a quedar de manera permanente.
Valora esta pregunta
0