| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> 移动应用开发 斑竹:flyers,iamdream | |||||
| 作者： |
|
2009/12/3 15:43:50 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 比如我服务器是 IP：192.168.0.2端口为999 数据库名为：sq_chujoy 数据库用户名为：sq_chujoy 密码为123456 下面代码应该怎么改啊~ unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DBXpress, FMTBcd, StdCtrls, SqlExpr, Grids, DBGrids, DB, Provider, DBClient, ExtCtrls, DBCtrls; type TForm1 = class(TForm) DataSource1: TDataSource; ClientDataSet1: TClientDataSet; DataSetProvider1: TDataSetProvider; SQLConnection1: TSQLConnection; DBGrid1: TDBGrid; SQLDataSet1: TSQLDataSet; Panel1: TPanel; DBNavigator1: TDBNavigator; Button1: TButton; procedure Button1Click(Sender: TObject); procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin //连接远程数据库 sqlconnection1.LoginPrompt:=false; sqlconnection1.Connected:=false; sqlconnection1.Params.Values['HostName']:='192.168.1.69'; sqlconnection1.Params.Values['DataBase']:='students'; sqlconnection1.Params.Values['User_Name']:='root'; sqlconnection1.Params.Values['Password']:=''; sqlconnection1.Connected:=true; //获取数据集 sqldataset1.Active:=false; sqldataset1.CommandText:='select * from users'; sqldataset1.Active:=true; //打开客户端数据集 clientdataset1.Active:=true; end; procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn); begin if (button=nbPost) or (button=nbDelete) then clientdataset1.ApplyUpdates(-1); //更新数据到远程服务器 end; end. ---------------------------------------------- 我只爱你7777777 |
|||||
| 作者： |
|
2009/12/3 17:20:17 | ||||
| 1楼： | qlconnection1.Params.Values['HostName']:='192.168.0.2:999'; sqlconnection1.Params.Values['DataBase']:='sq_chujoy'; sqlconnection1.Params.Values['User_Name']:='sq_chujoy'; sqlconnection1.Params.Values['Password']:='123456'; ---------------------------------------------- - |
|||||
| 作者： |
|
2009/12/3 21:31:35 | ||||
| 2楼： | qlconnection1.Params.Values['HostName']:='192.168.0.2'; sqlconnection1.Params.Values['DataBase']:='sq_chujoy'; sqlconnection1.Params.Values['User_Name']:='sq_chujoy'; sqlconnection1.Params.Values['Password']:='123456'; [i]sqlconnection1.Params.Values['Port']:=999;[/i] ---------------------------------------------- tuao |
|||||
| 作者： |
|
2009/12/23 23:03:16 | ||||
| 3楼： | 请问楼主用的是DELPHI的哪个版本可以不可把正确的修改后源码发给我，我也想学MYSQL的连接 ---------------------------------------------- 因为爱所以爱，Delphi http://www.qzpcn.com |
|||||
| 作者： |
|
2012/5/23 1:55:20 | ||||
| 4楼： | 源码都骗人不能用 ---------------------------------------------- - |
|||||
| 作者： |
|
2012/6/8 9:25:05 | ||||
| 5楼： | 改过源代码后，还有个前提条件：MYSQL 数据库开放远程连接。 ---------------------------------------------- - |
|||||
| 作者： |
|
2012/6/8 10:11:08 | ||||
| 6楼： | 和程序代码没关系，mysql默认是不能远程登录的，需要修改mysql的权限才行 ---------------------------------------------- - |
|||||
| 信息 |
| 登陆以后才能回复 |
