SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Fernando H. en Sábado 12 de Abril de 2003, 17:23
-
Alguin me puede mandar un manual de conexion de SQL con Visual Basic o un ejemplo de como canectarme al servidor de SQL Server. :good:
-
esta conexion es con ado
Copia esto en el menu de tu aplicacion
SRVSISTEMA = "nombre_de_tu_servidor"
CATSISTEMA = "nombre_base_datos"
UsuarioMed = "nombre_usuario"
PasswordBase = "clave_usuario"
Set ADOConnection = New ADODB.Connection
Set ADOCommand = New ADODB.Command
strConnect = "Provider=SQLOLEDB.2;Persist Security Info=False;Initial Catalog=" & CATSISTEMA & ";Data Source=" & SRVSISTEMA
ADOConnection.Open strConnect, UsuarioMed, PasswordBase, -1
ADOCommand.ActiveConnection = ADOConnection
y declara esto gloval, en un modulo
Public ADOConnection As New ADODB.Connection
Public ADOCommand As New ADODB.Command
Public ADORs As New ADODB.Recordset
Public SRVSISTEMA, CATSISTEMA, UsuarioMed, PasswordBase As String
:comp:
chao y que te resulte
:jumpie:
si tienes algun problema define la libreria en las referencias
El Renegado
-
Perdona, renegado; veo que tú cometes el mismo error que yo cometía al cambiar a Visual, porque lo tenemos adquirido de los lenguajes que hemos usado anteriormente: la última línea de tu código, en Visual Basic hay que definirla así:
Public SRVSISTEMA As String, CATSISTEMA As String, UsuarioMed As String, PasswordBase As String
porque en otro caso las tres primeras variables se considerarían como Variant.
Saludos