Visual Basic - Leer ruta base de datos DSN de Sistem

Life is soft - evento anual de software empresarial
   
Vista:

Leer ruta base de datos DSN de Sistem

Publicado por Cesar Cubillos (2 intervenciones) el 15/01/2015 02:39:53
Como programar en visual basic para leer la base de datos del DSN de Sistema del Origen de datos ODBC
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
Imágen de perfil de Andres Leonardo

Leer ruta base de datos DSN de Sistem

Publicado por Andres Leonardo (701 intervenciones) el 15/01/2015 14:53:27
''Con esto Vas a leer datos en la base de datos que crees en el DSN

Primero creas el DSN de SISTEMA
SEA SQL o ACCESS con el NOMBREDSN (o le que quieras)

en el proyecto referencias
Microsoft Activex Data Object 2.6

Crea un .bas osea un sub main ... y lo haces iniciar asi al proyecto

llamas este procedimiento

'declaras estas
Public conexion As New ADODB.Connection
Public Rs As New ADODB.Recordset



Sub conectar()
On Error GoTo etqerror
conexion.Open ("dsn=NOMBREDSN;user id=sa;pwd=Xx123456;")

'MsgBox "Conexion Exitosa", vbInformation, "Conexion"
mdimain.Show ' muestras el formulario que deseas...

Exit Sub

etqerror:
MsgBox "Error de Conexion " & " - " & Err.Number & Err.Description & " - " & Err.Source, vbCritical, "Log - IO"

End Sub


Luego de esto cuando deseas hacer alguna consulta

Rs.Open cmdsql, conexion ' donde cmdsql sera el select insert o delete...


Si deseas valorar los resultados en un select

'****si no hay resultados ********
If Rs.EOF = True And Rs.BOF = True Then
MsgBox "No existen Resultados para mostrar", vbInformation, "Consulta de Pendientes"
Rs.Close
Exit Sub
End If
'salgo del sub
'**********************************
'Si si hay datos
While Not Rs.EOF
Rs(indice)
Rs.MoveNext 'Avanza al siguiente registro
Wend
Rs.Close

'*************************************************

Espero con esto tengas una referencia si lo qeu deseas es la ruta que tiene el DSN desde BV es otra cosa que lo pide tu tilulo pero tu texto confunde
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

Leer ruta DSN de Sistema desde VB

Publicado por Cesar Cubillos (2 intervenciones) el 15/01/2015 15:45:51
Deseo leer la ruta de la Base de Datos que tiene el DSN de Sistema - configuración de OBDC Microsoft access desde BV 6.0
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