Conexion Sql Server 2005
Publicado por Carlos Londoño (1 intervención) el 13/12/2013 16:33:56
Hola a todos, resulta que estoy iniciando con Visual Basic 2008 y necesito conectarme a una base de datos en sql server 2005, he realizado varios ensayos y me da si lo hago por el asistente pero al momento de ejecutarlo desde otro pc en la red me genera error. por favor me envian un codigo o link de ejemplo, gracias.
Anexo que el codigo que utilizo desde visual foxpro 9.0 es el siguiente por si algo:
Local wrong,aerrorarray,conexion
Public gnconnhandle
nombre_servidor=miservidor
nombre_base_datos=mibase
nombre_usuario=misuario
clave_usuario=miclave
conexion="Driver={SQL Server};";
+"Server="+nombre_servidor+";";
+"Database="+nombre_base_datos+";";
+"uid="+nombre_usuario+";"+"pwd="+clave_usuario+"; "
Y ASI ABRO LA TABLA A LA QUE DESEO ACCEDER
*************************************************************************************************
gnconnhandle=Sqlstringconnect(conexion,.T.)
If .Not. gnconnhandle> 0
= Aerror(aerrorarray)
= Messagebox(aerrorarray(2), 16, 'Error de conexión')
Return
Endif
****** Tomo datos
wrong=SQLExec(gnconnhandle, 'SELECT * From diseñador','diseñador') && Para SQL 1 es True, 0 es False
If wrong<0
=Aerror(merrores)
= Messagebox(merrores(2), 16, 'Error de conexión')
Return
Endif
Anexo que el codigo que utilizo desde visual foxpro 9.0 es el siguiente por si algo:
Local wrong,aerrorarray,conexion
Public gnconnhandle
nombre_servidor=miservidor
nombre_base_datos=mibase
nombre_usuario=misuario
clave_usuario=miclave
conexion="Driver={SQL Server};";
+"Server="+nombre_servidor+";";
+"Database="+nombre_base_datos+";";
+"uid="+nombre_usuario+";"+"pwd="+clave_usuario+"; "
Y ASI ABRO LA TABLA A LA QUE DESEO ACCEDER
*************************************************************************************************
gnconnhandle=Sqlstringconnect(conexion,.T.)
If .Not. gnconnhandle> 0
= Aerror(aerrorarray)
= Messagebox(aerrorarray(2), 16, 'Error de conexión')
Return
Endif
****** Tomo datos
wrong=SQLExec(gnconnhandle, 'SELECT * From diseñador','diseñador') && Para SQL 1 es True, 0 es False
If wrong<0
=Aerror(merrores)
= Messagebox(merrores(2), 16, 'Error de conexión')
Return
Endif
Valora esta pregunta


0