Ayuda conexión remota sql

Hola mi problema es el siguiente: tengo 2 pc con una misma aplicación y lo que quiero es conectar una de ellas al servidor, es decir una es el servidor y la otra el cliente en el servidor ya pude conectar la aplicación en vb a la bd pero en el cliente no puedo me dice que no existe el servidor o que no tengo permisos como lo hago' mi conexión es por medio de una variable de conexión de vb 6.0 es decir tengo un diseñador comn una conexión y de ahí lo jalo. E intente hacer lo mismo desde el cliente pero no se puede.
1

1 Respuesta

1.065.950 pts. Soy una persona multifacética, tanto manejo la...
Me puedes colocar las dos formas de conexión que tienes, cliente y servidor. Para saber como estas realizando la conexión.
Mira el código siguiente es en donde yo hago una alta en cada función yo tengo una conexión solo que yo lo quise hacer igual desde el cliente y ya no puedo. Con es mi conexión
Function altas_al()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
If (Form3.Text1.Text = "" Or Form3.Text3.Text = "" Or Form3.Text3.Text = "" Or Form3.Text4.Text = "" Or Form3.Text6.Text = "" Or Form3.Text7.Text = "" Or Form3.Text8.Text = "" Or Form3.Text9.Text = "" Or Form3.Text10.Text = "" Or Form3.Text11.Text = "" Or Form3.Text12.Text = "") Then
MsgBox "Debe llenar todos los Campos", vbCritical, "AVISO"
'Form3.Text1.SetFocus
Else
cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=proyecto;Data Source=electronica2"
clave_aux = Form3.Text1.Text
If Form3.Text1.Text <> "" Then
Form3.Text2.SetFocus
'*********************************
rsstream.Type = adTypeBinary
'DoEvents
rsstream.Open
rsstream.LoadFromFile rutaimagen
'*********************************
rs.Open "select * from alumno where codigo = '" + clave_aux + "'", cn, adOpenStatic, adLockOptimistic
If rs.RecordCount = 1 Then
MsgBox "El registro ya existe", vbCritical, "A V I S O"
clear_u
Form3.Text1.SetFocus
Else
With rs
.AddNew
!codigo = clave_aux
!nombre = Form3.Text2.Text
!apep = Form3.Text3.Text
!apm = Form3.Text4.Text
n = Form3.Combo1.ListIndex
If (n = 0) Then
car_aux = "Sistemas Computacionales"
Else
If (n = 1) Then
car_aux = "Informatica"
Else
If (n = 2) Then
car_aux = "Electromecanica"
Else
If (n = 3) Then
car_aux = "Industrial"
Else
If (n = 4) Then
car_aux = "Bioquimica"
Else
car_aux = "Civil"
End If
End If
End If
End If
End If
!carrera = car_aux
!calle = Form3.Text6.Text
!colonia = Form3.Text7.Text
!ciudad = Form3.Text8.Text
!cp = Form3.Text9.Text
!telefono = Form3.Text10.Text
!imss = Form3.Text17.Text
!tsangre = Form3.Text18.Text
!nomac = Form3.Text11.Text
!calleac = Form3.Text12.Text
!colac = Form3.Text13.Text
!ciudac = Form3.Text14.Text
!telac = Form3.Text16.Text
!cpac = Form3.Text15.Text
!nip = Form3.Text19.Text
!foto.value = rsstream.Read
!asistencia = "-"
.Update
'********************
rsstream.Close
Set rsstream = Nothing
rs.Close '***
Set rs = Nothing
'*************************
MsgBox "El registro fue dado de alta satisfactoriamente", vbInformation, "A V I S O"
clear_u
Form3.Text1.SetFocus
End With
cn.Close '***
End If
Else
MsgBox "debe pasar la credencial por el lector", vbCritical, "AVISO"
Form3.Text1.SetFocus
End If
End If
End Function
Mira la cadena de conexión yo la adquirí desde un dataenviroment de visual ahí agregue una conexión y elegí mi proveedor de la lista en el caso SQL y seguí configuranbdo me pide el nombre del servidor y enseguida lo encuentra pero al hacerlo desde el cliente yo pensé que era igual que como estaban conectados en red iba a reconocer el servidor que se encontraba en la maquina servidor.
Me explico. Gracias
En ambos equipos debes de crear el dsn llamado electronica2 y que deberá de conectarse a tu sql server.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas