none
PROBLEMAS SQL Y VISUAL BASIC RRS feed

  • Pregunta

  • Tengo un problema conectando Visual Basic con SQl server 2008 R2, al conectar abre perfectamente, pero cuando un usuario entra, y otro intenta entrar, el segundo usuario da error s1t00 que el tiempo expiro, pero la primera vez trabaja bien, solo cuando otro intenta entrar da probelmas? que puede pasar? habra algun error en la forma de abrir la conexion?

    sábado, 8 de junio de 2013 3:52

Todas las respuestas

  • Hola! puedes mostrarnos la cadena de conexión y un ejemplo como realizas una operación sobre la bbdd??

    Si se solucionó tu consulta no olvides marcar la respuesta. Si te ayudó vótala como útil. Saludos

    sábado, 8 de junio de 2013 19:12
  • Espero esto te sirva.

    Conexión

    Option Explicit
    Public cn As ADODB.Connection
    Public rs As ADODB.Recordset
    
    
    Public Sub Conectar()
      Set cn = New ADODB.Connection
      Set rs = New ADODB.Recordset
      rs.CursorLocation = adUseClient
      cn.Open "Provider=SQLNCLI.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Pruebas;Data Source=."
    End Sub
    
    Public Sub Desconectar()
      On Local Error Resume Next
      rs.Close
      Set rs = Nothing
      cn.Close
      Set cn = Nothing
    End Sub


    Persistencia contra DB

    '*********************************************************************************
    '*                       Inserción y devuelve el Id                              *
    '*********************************************************************************
    Public Function AddCliente(cliCodigo As String, cliRuc As String, cliRSocial As String, idUbigeo As String, cliDireccion As String, cliTelefono As String, cliEmail As String, cliDni As String) As String
       
       Dim NextCliente As String
    
       On Error GoTo AddChequeError
       NextCliente = GetNextId(cliCodigo)
       xMarca = NextCliente
    '   Insertar Nueva Linea
       Call Conectar
       strSQL = "INSERT INTO Clientes(cli_codigo, cli_ruc, cli_rsocial, id_ubigeo, cli_direccion, cli_telefono, cli_email, cli_dni, cli_disponible)"
       strSQL = strSQL & " VALUES ('" & NextCliente & "','" & cliRuc & "', '" & cliRSocial & "', '" & idUbigeo & "', '" & cliDireccion & "', '" & cliTelefono & "', '" & cliEmail & "', '" & cliDni & "', 'A')"
    '   strSQL = "xspAddMarca '" & NextMarca & "', '" & Descripcion & "'"
       cnMDB.Execute strSQL
       AddCliente = CStr(cliCodigo)
       On Error GoTo 0
       Exit Function
    AddChequeError:
    
        AddCliente = ""
        MsgBox Err.Description
        On Error GoTo 0
    End Function


    Pedro Ávila
    "El hombre sabio querrá estar siempre con quien sea mejor que él."
    Lima - Perú

    domingo, 9 de junio de 2013 15:16