需要的控件:(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'
|
请发表评论