Programación General > Bases de Datos

 Conexión A Sql

(1/1)

MeLaT:
Hola, estoy haciendo pruebas y no me puedo conectar a la base de datos que tengo en SQL Server. Tengo esas conexiones, pero con ninguna me conecta . . .


--- Código: Text --- Public Sub conectar()    On Error GoTo errorcnn    Set conn = New ADODB.connection    With conn        .ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=paco;Database=mibase;USER=admin;PWD=005"        '.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=admin;pwd=005;Initial Catalog=mibase;Data Source=paco"        '.ConnectionString = "PROVIDER=MSDASQL;DNS=LocalServer;UID=admin;pwd=005;DATABASE=mibase"        '.ConnectionString = "Driver={SQL Server};Server=paco;Database=mibase;Uid=admin;Pwd=005;"    End With    edocnn = 1errorcnn:    MsgBox Err.Description, vbInformation, "Error Numero" & Err.Number    Exit SubEnd Sub  
La función conectar la llama cada formulario al evento click de un botón que puede ser aceptar o buscar o nuevo . . .

No se si tambien influya este otro código, para la entrada al sistema, que es el que ahora estoy probando para ver si hay conexión:


--- Código: Text --- Private Sub cmd_aceptar_Click()conectar'comprobar si la contraseña es correctaCRITERIO = "SELECT * FROM T_USUARIOS WHERE (TUS_USUARIO LIKE '" & txt_usuario.Text & "' AND TUS_CONTRASENIA LIKE '" & txt_contrasenia.Text & "')"On Error Resume Nextrs.OPEN CRITERIO, conn, adOpenKeyset, adLockPessimisticIf rs.EOF Then    LoginCount = LoginCount + 1    MsgBox "EL usuario o la contraseña no son válidos." & vbCrLf & "Vuelva a intentarlo", vbExclamation, "Inicio de sesión."    txt_contrasenia = ""    txt_contrasenia.SetFocus    If LoginCount >= 3 Then        MsgBox "No puede iniciar sesión." & vbCrLf & "Consulte al administrador del sistema.", vbExclamation, "Inicio de sesión"        Unload Me    End IfElse    LoginSucceeded = True    Unload Me    frm_splash.ShowEnd IfEnd Sub  
Gracias por sus aportes. Igual y estoy poniendo algo de más o mas bien me faltan cosas.

ElNapster:
Que error te esta devolviendo ?  :ph34r:

MeLaT:

--- Cita de: "elnapster" --- Que error te esta devolviendo ?  :ph34r:
--- Fin de la cita ---
Ninguno, simplemente no se conecta.

Como tengo que entregar este proyecto para revisión el lunes, voy a utilizar Access. Creo que cuando ya este funcionando será un poco más fácil solo cambiar el tipo de conexión de Access a SQL Server, al fin que ya tengo la bd en Access y SQL, o es muy dificil o tiene complicaciones hacer ese cambio ?!

firme:
mira tu codigo probe en mi compu y me funciona esto yo e modificado solo esto
 Dim conn As New ADODB.Connection,creo q te falto poner el cnn.open :D
********************************
Dim conn As New ADODB.Connection
 Private Sub Form_Load()

   On Error GoTo errorcnn

   With conn
       '.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=server;Database=model;USER=sa;PWD="
       .ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;pwd=;Initial Catalog=model;Data Source=server"
       '.ConnectionString = "PROVIDER=MSDASQL;DNS=LocalServer;UID=sa;pwd=;DATABASE=model"
       .ConnectionString = "Driver={SQL Server};Server=server;Database=model;Uid=sa;Pwd="
        .Open
   End With
   'edocnn = 1
   
errorcnn:
   MsgBox Err.Description, vbInformation, "Error Numero" & Err.Number
   Exit Sub

End Sub

esos dos me funcionan pero los demas nuuuu q es el dns me puedes explicar y para q me sirve y todo eso si me enseñaron y se como crear uno pero no entiendo opara q me pueda servir o es una opcion o qqqq
espero q te sirva

Navegación

[0] Índice de Mensajes