Visual Basic Foro

Programación => Visual Basic 6 => Mensaje iniciado por: cliv en Enero 10, 2014, 04:45:53 am

Título: VB6 to PHP/MySQL Interface
Publicado por: cliv en Enero 10, 2014, 04:45:53 am

I need to create a program in VB6 that interfaces with PHP scripts to access a MySQL database.
Users wishing to send queries via Visual Basic to a remote MySQL server that doesn't otherwise allow remote access.
I don't work until now with POST/GET ... so please post me a sample if you have.

I need to do something like that in vb6.

Código: [Seleccionar]

<?php$databasehost = XXXXXXXXXX;$databasename = XXXXXXXXXX;$databaseusername =XXXXXXXXXX;$databasepassword = XXXXXXXXXX;$con = mysql_connect($databasehost,$databaseusername,$databasepassword) or die(mysql_error());mysql_select_db($databasename) or die(mysql_error());mysql_query("SET CHARACTER SET utf8");$query = file_get_contents("php://input");$sth = mysql_query($query);if (mysql_errno()) {    header("HTTP/1.1 500 Internal Server Error");    echo $query.'\n';    echo mysql_error();}else{    $rows = array();    while($r = mysql_fetch_assoc($sth)) {        $rows[] = $r;    }    print json_encode($rows);}?>

Título: Re:VB6 to PHP/MySQL Interface
Publicado por: cliv en Enero 17, 2014, 06:03:56 am

I use

Código: [Seleccionar]

Option Explicit
Private WithEvents httpURL As WinHttp.WinHttpRequest
Const HTTPREQUEST_PROXYSETTING_DIRECT = 1

Private Sub cmdGo_Click()

    httpURL.SetProxy HTTPREQUEST_PROXYSETTING_DIRECT
    httpURL.Open "GET", "http://www.URLsite.com/code.php?query=%22SELECT%2B*%2BFROM%2BTable%22"
    httpURL.Send
   
    txtGET.Text = httpURL.ResponseText
End Sub

but return was "\nQuery was empty"
What is correct URL-encoded data?...how to send variable $query from php code?

Título: Re:VB6 to PHP/MySQL Interface
Publicado por: VigiRed en Enero 24, 2014, 09:12:05 pm

no entiendo nada
(http://i1.ytimg.com/vi/dfCGfeDDUY0/mqdefault.jpg)