SoloCodigo

bien compañero no  me resulto lo que me digistes ....
pero  bueno gracias por tu punto.....
 gracuias seguire buscando

               

hola compañeros estoy  trabajando en un sistema en la cual el servidor sql2000 se encuentra en un  server 2003 y  ejecuto mi programa y  me manda  error de cadena de conexion....

el mismo codigo lo he probado para conectarme a  un sql 2000 que se ecuentra en una maquina con xp remota, obiamenten deseactivo en firewall , en el caso del server 2003 desactivo tambien pero  tampoco me da resultado....

mi cadena de conexion es esta:::

cn.conecctionstring = "provider = sqloledb;datasource = 192.168.0.1;port=3036;database = casa;user id = fabian;password  = 123456"
cn.open

nota: cuando yo instalo el sql en el server 2003  siempre  me manda un mensaje, que debo de instalar service pack 3 para el sql 2000 , este lo he estado buscando y he bajado algunos pero  los que he bajado me mandan error de instalacion

bien  compañero lo que yo quiero es hacer esto...
 tengo mi datgrid y utilizo la funcion de dbclik del datagrid, para que cuando yo de dbclik en el datagrid los datos que se encuentren en el datagrid se me coloquen en los text que  tengo en la misma forma...

todo corre de maravilla  cuando hay datos en el  datagrid ... pero cuando no nay datos me envia un error... obviamente  por que no hay datos ...
entonces  como le hago para enviar un mensaje de que no hay datos en el datagrid ...
para que no me salgue el terrible herror que aberia mi codigo....
 lo he intentado de varias formas .....      

espero promta su ayuda.....
gracias por el foro....      

bueno aqui  les dejo el codigo de mi conexion de   vb6 con la base sql......

SERVIDOR = "fa"
BASEDATOS = "casa"
User = "fabian"
Password = "123456"
sSQLConect = "SERVER=" & Trim(SERVIDOR) & ";DATABASE=" & Trim(BASEDATOS) & ";uid=" & User & ";pwd=" & Trim(Password)
Set cn = Nothing
cn.Provider = "sqloledb"
cn.CursorLocation = adUseClient
cn.Open sSQLConect

rs.Open "select * from persona", cn, adOpenKeyset, adLockOptimistic, adCmdText


----- este es el codigo que hace que se me despliegue el combo con los campos
Do Until rs.EOF
Combo2.AddItem rs("nombre")
rs.MoveNext
Loop
rs.Close
End Sub


entonces lo que yo necexito es que cuando yo seleccione un campo de lo que se despliegue en el combo, su cve_persona  se me coloque  en un text1.text que se encuentra en la misma forma.....
ok


 gracias por contestar y tomar en cuenta mi pregunta


espero prota respuesta