需要的控件:(view as form)
1、SQLConnection1: TSQLConnection
ConnectionName = 'MYSQLCONNECTION'
DriverName = 'MySQL'
GetDriverFunc = 'getSQLDriverMYSQL'
LibraryName = 'dbxmys.dll'
LoginPrompt = False
Params.Strings = (
'HostName=localhost'
'Database=mysqldb'
'User_Name=root'
'Password=pswd'
'MaxBlobSize=-1
ServerCharSet=utf8')
VendorLib = 'libmysql.dll'
Connected = True
2、 SQLTable1: TSQLTable
GetMetadata = False
MaxBlobSize = -1
SQLConnection = SQLConnection1
TableName = 'human'
3、DataSource1: TDataSource
DataSet = ClientDataSet1
4、DataSetProvider1: TDataSetProvider
DataSet = SQLTable1
5、ClientDataSet1: TClientDataSet
Active = True
ProviderName = 'DataSetProvider1'
6、DBGrid1: TDBGrid
DataSource = DataSource1
7、 DBNavigator1: TDBNavigator
DataSource = DataSource1
8、Button1: TButton
Caption = 'Button1'
OnClick = Button1Click
代码:
procedure TForm1.Button1Click(Sender: TObject);
begin
ClientDataSet1.ApplyUpdates(0);//更新
end;
最后找到两个库文件一同发布就可以了。
LibraryName = 'dbxmys.dll'
VendorLib = 'libmysql.dll'
文章来源: 博客园
- 还没有人评论,欢迎说说您的想法!