Clipper/FiveWin - conexion a internet

   
Vista:

conexion a internet

1
2
3
4
5
6
7
8
9
oCon:=toleauto():new("adodb.connection")
 Try
     //* 192.168.0.95
     oCon:OPEN("DRIVER={MySQL ODBC 3.51 DRIVER};SERVER=192.168.0.95;DATABASE=tonco;UID=root")  //*;PWD=root")
     Catch oErr
     Return Nil
 END TRY
 oSql:=toleauto():new("adodb.command")
 oSql:ActiveConnection(oCon)

CON EL ANTERIOR CODIGO ME CONECTO A LA BASE DE DATOS DE MYSQL EN UNA RED LOCAL EN LA CUAL HE CONECTADO HASTA 2O EQUIPOS Y NO TENGO PROBLEMA. Y AHORA QUE CONTAMOS CON UNA IP FIJA O PUBLICA NECESITO SABER QUE CAMBIOS HACERLE AL CODIGO ANTERIOR PARA PODER CONECTAR LA BASE DE DATOS POR INTERNET. TODO EL CODIGO RESTANTE PARA LA ADMINISTRACION DE LAS TABLAS DE LA BASE DE DATOS ESTA ESCRITO EN XHARBOUR. EL SERVIDOR QUE CONTIENE LA BASE DE DATOS CUENTA CON WINDOWS XP DE 32 BITS.

AGRADECERE SU AYUDA.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Clipper/FiveWin
- Código fuente de Clipper/FiveWin
- Cursos de Clipper/FiveWin
- Temas de Clipper/FiveWin
información
Códigos de Clipper/FiveWin
- Melodias
- Visor de archivos DBF
- Vaciar bases de datos

conexion a internet

Publicado por SuperIndio (10 intervenciones) el 10/03/2015 19:40:55
Asi deberia funcionar:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public ccString
 Public ccServer := "www.micachiquerido.com.ar"
 Public ccUsrweb := "noninoni"
 Public ccDataWeb:= "tonco"
 
 ccStringConn := "DRIVER={MySQL ODBC 3.51 DRIVER};SERVER=" + ccServer + ;
                 ";DATABASE=" + ccDataWeb + ;
                 ";UID=" + ccUsrweb
 
 oCon:=toleauto():new("adodb.connection")
 Try
     //* 192.168.0.95
     oCon:OPEN( ccStringConn )
     Catch oErr
     Return Nil
 END TRY
 oSql:=toleauto():new("adodb.command")
 oSql:ActiveConnection(oCon)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar