SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Bases de Datos => Mensaje iniciado por: MeLaT en Viernes 23 de Marzo de 2007, 03:46

Título: Conexión A Sql
Publicado por: MeLaT en Viernes 23 de Marzo de 2007, 03:46
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
  1.  
  2. Public Sub conectar()
  3.     On Error GoTo errorcnn
  4.     Set conn = New ADODB.connection
  5.     With conn
  6.         .ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=paco;Database=mibase;USER=admin;PWD=005"
  7.         '.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=admin;pwd=005;Initial Catalog=mibase;Data Source=paco"
  8.         '.ConnectionString = "PROVIDER=MSDASQL;DNS=LocalServer;UID=admin;pwd=005;DATABASE=mibase"
  9.         '.ConnectionString = "Driver={SQL Server};Server=paco;Database=mibase;Uid=admin;Pwd=005;"
  10.     End With
  11.     edocnn = 1
  12. errorcnn:
  13.     MsgBox Err.Description, vbInformation, "Error Numero" & Err.Number
  14.     Exit Sub
  15. End Sub
  16.  
  17.  

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
  1.  
  2. Private Sub cmd_aceptar_Click()
  3. conectar
  4. 'comprobar si la contraseña es correcta
  5. CRITERIO = "SELECT * FROM T_USUARIOS WHERE (TUS_USUARIO LIKE '" & txt_usuario.Text & "' AND TUS_CONTRASENIA LIKE '" & txt_contrasenia.Text & "')"
  6. On Error Resume Next
  7. rs.OPEN CRITERIO, conn, adOpenKeyset, adLockPessimistic
  8. If rs.EOF Then
  9.     LoginCount = LoginCount + 1
  10.     MsgBox "EL usuario o la contraseña no son válidos." & vbCrLf & "Vuelva a intentarlo", vbExclamation, "Inicio de sesión."
  11.     txt_contrasenia = ""
  12.     txt_contrasenia.SetFocus
  13.     If LoginCount >= 3 Then
  14.         MsgBox "No puede iniciar sesión." & vbCrLf & "Consulte al administrador del sistema.", vbExclamation, "Inicio de sesión"
  15.         Unload Me
  16.     End If
  17. Else
  18.     LoginSucceeded = True
  19.     Unload Me
  20.     frm_splash.Show
  21. End If
  22. End Sub
  23.  
  24.  

Gracias por sus aportes. Igual y estoy poniendo algo de más o mas bien me faltan cosas.
Título: Re: Conexión A Sql
Publicado por: ElNapster en Viernes 23 de Marzo de 2007, 15:32
Que error te esta devolviendo ?  :ph34r:
Título: Re: Conexión A Sql
Publicado por: MeLaT en Viernes 23 de Marzo de 2007, 18:26
Cita de: "elnapster"
Que error te esta devolviendo ?  :ph34r:
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 ?!
Título: Re: Conexión A Sql
Publicado por: firme en Domingo 29 de Abril de 2007, 01:35
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