2

我有一个数据库，想选择一个带有DELPHI 和 FIREMONKEY CROSSOVER的条目。 但我从未在 DELPHI 上使用过 SQL。而且我不知道如何使用 DELPHI 连接到数据库。我不想要满是组件的手。它应该是一个简单的连接，就像使用 PHP 一样。

我使用 XAMPP - mySQL。假设我们有一个数据库“db_x”，带有一个表“users”，在该表中有以下条目： name: Michael; 姓氏：施耐德；年龄：22。

数据库位于“localhost”或其他地方，登录名是“root”，密码是“rootpw”。要连接到 PHP 中的数据库，我们使用：

mysql_connect("localhost","root","rootpw") or die ("Connection Error");
mysql_select_db("db_x") or die ("Error DB");

现在我想从名为“ Michael ”的用户那里获取姓氏：

$query= mysql_query("SELECT surname FROM users WHERE name = 'Michael'")  
or die  
(mysql_error());   

while($zeile = mysql_fetch_array( $query )) 
{ 
    echo $zeile['surname']."<br>";
}

现在这是关于 PHP 的，但是关于 DELPHI 呢？我有相同的数据库并想显示用户的姓氏，但我什至不知道如何与 DELPHI 连接（它还应该支持 Firemonkey 并在 iOS 上工作）。

很抱歉我犯了语法错误。

感谢所有来自德国的回答和问候。

4

2 回答 2

1

为了这个恐龙的完整性。

我没有找到我当时使用的功能，但它与此类似：

http := TIdHttp.Create(nil);
http.HandleRedirects := true;
http.ReadTimeout := 6000;
jsonToSend := TStringList.create;
jsonToSend.Text := 'json={"food":"Pizza"}';
Memo1.Lines.Text := http.Post('http://www.mypage.com/mydata.php', jsonToSend);
jsonToSend.free;
http.free;

和简单的 mysql 和 json 编码在 mydata.php

于 2013-12-07T17:45:34.200 回答
0

Delphi中有各种方法，在这个例子中我有以下内容：

我在表单上有一个 TSQLConnection 对象（但这可以在代码中创建）。我在组件上设置了数据库连接和数据库设置。

然后，在代码中...

//variables
var Q: TSQLQuery;

//in function
Q := TSQLQuery.Create(nil);
try
  Q.SQLConnection := myConnectionObjectOnForm;
  Q.SQL.Text := "SELECT some stuff from TABLE";
  Q.Active := true;

  if not Q.Eof then
    //Do stuff eg
    result := Q.Fields[0].AsString;  //or reference FieldByName

  Q.Close;
finally
  Q.Free;
end;

TSQLQuery 和 TSQLDataSet 最常用于数据检索

于 2013-12-06T16:59:47.927 回答