PROBLEMAS SQL Y VISUAL BASIC

Question

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?

Answer 1

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

Answer 2

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ú