• Domingo 22 de Diciembre de 2024, 23:59

Autor Tema:  Re: Módulo y Ado  (Leído 1486 veces)

chesco

  • Nuevo Miembro
  • *
  • Mensajes: 2
    • Ver Perfil
Re: Módulo y Ado
« en: Jueves 21 de Noviembre de 2002, 18:21 »
0
Hola me gustaria saber como se usa los controles ado en un módulo bas

el Mago

  • Miembro activo
  • **
  • Mensajes: 64
    • Ver Perfil
    • http://MagiCBasic.iespana.es
Re: Módulo y Ado
« Respuesta #1 en: Jueves 21 de Noviembre de 2002, 23:51 »
0
no puedes utilizar controles en un módulo .bas, sólo puedes utilizar su código, esta es la forma más elegante de escribir un programa que accese a datos y su rendiimiento es mejor que si utilizas controles ado en los formularios en mi página http://www.iespana.es/magicbasic/ hay aunque muy pocos algunos códigos que te pueden servir
saludos

chesco

  • Nuevo Miembro
  • *
  • Mensajes: 2
    • Ver Perfil
Re: Módulo y Ado
« Respuesta #2 en: Viernes 22 de Noviembre de 2002, 00:27 »
0
yo solo quiero saber como se manda a un modulo el recordset que tengo que utilizar por ejemplo:

nuevo_registro adocliente.recordset

Jrtuarez

  • Nuevo Miembro
  • *
  • Mensajes: 11
    • Ver Perfil
Módulo y Ado
« Respuesta #3 en: Lunes 25 de Noviembre de 2002, 16:45 »
0
PUEDES DECLARAR UNA  VARIABLE DE TIPOS ADO GLOBAL PARA HACERTE REFERENCIA A TU CONECCION Y PUEDES PONER TODOS TUS RUTINAS EN LOS MODULO SERIA MEJOR SI UTILISAS MODULOS DE CLASE Y ES MAS ELEGANTE LA PROGRAMACION ES ALGO ASI:

Dim base As New ADODB.Connection
Dim tabla As New ADODB.Recordset

'ESTO VA EN EL MODULO

Private Sub Elimina_Click()
'command
'base.Execute "delete from Tabla" ' elimina registros
base.Execute "drop table Tabla" 'elimina tabla
End Sub

Private Sub MAIN()
base.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:Documents and Settingslab1-3Mis documentosejemplo.mdb;Persist Security Info=False"
FORM1.SHOW
End Sub


'ESTO ES DE TU FORM PRINCIPAL
Private Sub Form_Unload(Cancel As Integer)
base.Close
End Sub

'POR CIERTO PUEDES UTILIZAR TODOS LAS SENTENCIAS SQL QUE QUIERAS ES MUY FLEXCIBLE SUERTE