Visual Basic - visual y bases de datos

Life is soft - evento anual de software empresarial
 
Vista:

visual y bases de datos

Publicado por juancho (19 intervenciones) el 01/11/2005 16:30:26
panas requiero q me expliquen bien como se hace para pegar bases de datos de access 2000 con visual solo he podido trabajar con 97 y usando el controldata q no da muchas facilidades me dijeron que usando ado puedo usar el data report pregunto si no se puede usar con dao y si no me pueden facilitar manuales o de donde puedo bajar programas ejemplos q me expliquen como puedo usar las bases de datos en visual basic como visual fox pro
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:visual y bases de datos

Publicado por Insecto Malvado (15 intervenciones) el 01/11/2005 17:53:25
Estas funciones las utilizo para conectarme con ADO:

Tenes que usar la referencia:
Microsoft Activex Data Objects 2.0Library
Declarar Variables
dim BD As New ADODB.Connection
dim RC As New ADODB.Recordset

'ENTRADAS --
'SALIDAS un valor booleano indicando si se realizo la conecciòn
'RESTRICCIONES --
Public Function CONECTAR() As Boolean
On Error GoTo aqui
CONECTO = True
cn.Open "Dsn=siecoop", "UID=?", "Pwd=!!"
Exit Function
aqui:
MsgBox "No se pudo Realizar Conecciòn Con la Base de Datos", vbInformation, "Base de Datos"
CONECTO = False
End Function
'ENTRADAS instrucciòn SQL
'SALIDAS --
'RESTRICCIONES --
Public Sub SQL(insSQL)
On Error GoTo aqui
RC.Open insSQL, cn, adOpenDynamic, adLockBatchOptimistic
Exit Sub
aqui:
MsgBox "Error al Ejecutar Instrucciòn SQL" & Chr(13) & Err.Description, vbExclamation, "Base de Datos"
End Sub

Public Sub EXEC(SQL)
On Error GoTo aqui
cn.Execute SQL
Exit Sub
aqui:

MsgBox "Error al ejecutar instrucciòn SQL" & Chr(13) & Err.Description, vbInformation, "Base de Datos"
End Sub

'Desconecta la Base de Datos
Public Sub DESCONECTAR()
On Error GoTo aqui
cn.Close
Exit Sub
aqui:
MsgBox "Error al Desconectar la Base de Datos", vbInformation, "Base de Datos"
End Sub
Creo que Esto te puede solucionar el problema
Se despide
Insecto Malvado
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar