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 respuesta
Respuesta de denciso
0
0
denciso, Soy una persona multifacética, tanto manejo la informática,...
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.