Consulta también:
- Proyectos visual basic 6.0 ejemplos
- Pc futbol 6.0 - Programas - Simulación
- Error del sistema &h8000ffff visual basic - Guide
- Ejemplos de extranet - Guide
- Visual foxpro - Guide
- E-procurement ejemplos - Guide
1 respuesta
Hay muchas formas de conexion desde mi punto de vista la mas eficiente y elegante y super practica esesta.
bamos a ir por parte: ejemplo:tenemos un formulario agenda y otro venta
1) creamos el nombre de la base de datos por ejemplo'PyMenvases y 2 tablas en access tabla 1(agenda) tabla 2(producto)
2) creamos un modulo de clase y declaramos lo sgte:
Public cn As New ADODB.Connection
Public rs1 As New ADODB.Recordset 'Creamos el objeto Recordset.
Public rs2 As New ADODB.Recordset
3) En Private Sub Form_Load() del formulario ponemos
rs1.Source = "agenda" 'Especificamos la fuente de datos. En este caso la tabla .
rs1.CursorType = adOpenKeyset 'Definimos el tipo de cursor.
rs1.LockType = adLockOptimistic 'Definimos el tipo de bloqueo.
rs2.Source = "producto" 'Especificamos la fuente de datos. En este caso la tabla .
rs2.CursorType = adOpenKeyset 'Definimos el tipo de cursor.
rs2.LockType = adLockOptimistic 'Definimos el tipo de bloqueo.
en cualquier objeto de ese formulario abris de la sigte forma:
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "DataSource=c:\PyMenvases.mdb"
if rs1.state=0 then 'verifica si esta cerrado el recordest
rs1.open "select * from agenda",cn 'realiza la consulta sql
end if
rs1.close 'cierra el recordest
cn.close 'cierra la conexion
La gran ventaja de trabajar de esta forma es poder de forma abreviada y prolija trabajar con multiplrs tablas abriendo y cerrando lo recordest y a la ves abrindo una sola ves la conexion por objeto. espero que le sirva amigo cualquier pregunta mi e-mail es tierra_riojana@hotmail.com
bamos a ir por parte: ejemplo:tenemos un formulario agenda y otro venta
1) creamos el nombre de la base de datos por ejemplo'PyMenvases y 2 tablas en access tabla 1(agenda) tabla 2(producto)
2) creamos un modulo de clase y declaramos lo sgte:
Public cn As New ADODB.Connection
Public rs1 As New ADODB.Recordset 'Creamos el objeto Recordset.
Public rs2 As New ADODB.Recordset
3) En Private Sub Form_Load() del formulario ponemos
rs1.Source = "agenda" 'Especificamos la fuente de datos. En este caso la tabla .
rs1.CursorType = adOpenKeyset 'Definimos el tipo de cursor.
rs1.LockType = adLockOptimistic 'Definimos el tipo de bloqueo.
rs2.Source = "producto" 'Especificamos la fuente de datos. En este caso la tabla .
rs2.CursorType = adOpenKeyset 'Definimos el tipo de cursor.
rs2.LockType = adLockOptimistic 'Definimos el tipo de bloqueo.
en cualquier objeto de ese formulario abris de la sigte forma:
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "DataSource=c:\PyMenvases.mdb"
if rs1.state=0 then 'verifica si esta cerrado el recordest
rs1.open "select * from agenda",cn 'realiza la consulta sql
end if
rs1.close 'cierra el recordest
cn.close 'cierra la conexion
La gran ventaja de trabajar de esta forma es poder de forma abreviada y prolija trabajar con multiplrs tablas abriendo y cerrando lo recordest y a la ves abrindo una sola ves la conexion por objeto. espero que le sirva amigo cualquier pregunta mi e-mail es tierra_riojana@hotmail.com
21 feb 2011 a las 21:33
28 nov 2011 a las 07:45