BMS-HOSxP Community
HOSxP => Delphi / Pascal => ข้อความที่เริ่มโดย: LDHP ที่ พฤษภาคม 02, 2011, 15:01:13 PM
-
ทดลองใช้ script นำข้อมูล access เข้าmysql
ที่อยู่ในฟอเดอร์ C:\Program Files\HOSxP\script
พอนำเข้าแล้ว จำนวนเร็คคอร์ดออกมาเท่ากัน แต่ข้อมูลในฟิลด์เป็นช่องว่างๆ ไม่มีอะไรเลย
รบกวนช่วยแนะแนวทางด้วยนะคะ...
-
source
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, JvExControls, JvNavigationPane, Buttons, ComCtrls;
type
TForm2 = class(TForm)
Button1: TButton; JvNavPanelHeader1: TJvNavPanelHeader;
Shape26: TShape; ProgressBar1: TProgressBar;
Label1: TLabel; Label2: TLabel;
Label3: TLabel; Button2: TButton;
procedure Label2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
row_curr,row_all:integer;
sconnection:string; // variable for hold connection string
st:string; // variable for hold any string
ImportFileName: String; // variable for Access address file part
implementation
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
row_curr:=0;row_all:=0;
//-------------------------------------------------//|
zquery.close; //|
zquery.sql.text:='delete from tempreport '; //|
zquery.execsql; //|
zquery.close; //|
zquery.sql.text:='select * from tempreport '; //|
zquery.open; //|
//------------------------------------------------ //|
//-----------------------------------------------------------------------------------------------------------//|
ImportFileName := fileopendialog('Access|*.mdb'); //|
if not FileExists(ImportFileName) then raise exception.create(' ¡ÃسҵÃǨÊͺ ä¿Åì '+ImportFileName); //|
setcursorbusy(true); //|
// showmessage('¹Óà¢éÒ '+ImportFileName); //|
sconnection:=' Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;'+ //|
'Data Source= ' + ImportFileName + ' ; ' + //|
'Mode=Share Deny None;Extended Properties="";Jet OLEDB:System database="";'+ //|
'Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;'+ //|
'Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;'+ //|
'Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";'+ //|
'Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;'+ //|
'Jet OLEDB:Don''t Copy Locale on Compact=False;'+ //|
'Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False; '; //|
//---------------------------------------------------------------------------------------------------------- //|
//-------------------------------------------------------//|
jconnection.connected:=false; //|
jconnection.protocol:='ado'; //|
jconnection.database:=sconnection; //|
jconnection.connected:=true; //|
jquery.close; //|
jquery.sql.text:='select * from UCdata '; //|
jquery.open; //|
//-------------------------------------------------------//|
while not jquery.eof do //start loop for while
begin
row_curr:=row_curr+1;
label1.caption:=inttostr(row_curr);
label2.caption:=inttostr(row_curr);
label3.caption:=inttostr(row_curr);
setprogressbar(row_curr,row_curr+500);
setstatuslabel('Progress ... '+inttostr(row_curr)+'/'+inttostr(200) );
//------------------------------------------------------
zquery.insert;
zquery.fieldbyname('name1').asstring:=jquery.fieldbyname('HINDEX').asstring; // showmessage(jquery['hindex']);
zquery.fieldbyname('name2').asstring:=jquery.fieldbyname('Pid').asstring;
zquery.fieldbyname('name3').asstring:=jquery.fieldbyname('MASTERCUPID').asstring;
zquery.fieldbyname('name4').asstring:=jquery.fieldbyname('TITLE').asstring;
zquery.fieldbyname('name5').asstring:=jquery.fieldbyname('FNAME').asstring;
zquery.fieldbyname('name6').asstring:=jquery.fieldbyname('LNAME').asstring;
zquery.fieldbyname('name7').asstring:=jquery.fieldbyname('SEX').asstring;
zquery.fieldbyname('date1').asstring:=jquery.fieldbyname('BIRTHDATE').asstring;
zquery.fieldbyname('name8').asstring:=jquery.fieldbyname('AGE').asstring;
zquery.fieldbyname('name9').asstring:=jquery.fieldbyname('SUBINSCL').asstring;
zquery.fieldbyname('name10').asstring:=jquery.fieldbyname('HMAIN').asstring;
zquery.fieldbyname('name11').asstring:=jquery.fieldbyname('HSUB').asstring;
zquery.fieldbyname('name12').asstring:=jquery.fieldbyname('STATUS').asstring;
zquery.fieldbyname('name13').asstring:=jquery.fieldbyname('CARDID').asstring;
zquery.fieldbyname('date2').asstring:=jquery.fieldbyname('NOTEDATE').asstring;
zquery.fieldbyname('date3').asstring:=jquery.fieldbyname('STARTDATE').asstring;
zquery.fieldbyname('date4').asstring:=jquery.fieldbyname('EXPDATE').asstring;
zquery.fieldbyname('name14').asstring:=jquery.fieldbyname('PROCODE').asstring;
zquery.fieldbyname('name15').asstring:=jquery.fieldbyname('OWNERPURCHASE').asstring;
zquery.fieldbyname('name16').asstring:=jquery.fieldbyname('MAININSCL').asstring;
zquery.fieldbyname('name17').asstring:=jquery.fieldbyname('NOTE').asstring;
zquery.fieldbyname('name18').asstring:=jquery.fieldbyname('NATION').asstring;
zquery.fieldbyname('name19').asstring:=jquery.fieldbyname('OCCUPA').asstring;
zquery.fieldbyname('name20').asstring:=jquery.fieldbyname('ADDRESS').asstring;
zquery.fieldbyname('name21').asstring:=jquery.fieldbyname('MOO').asstring;
zquery.fieldbyname('name22').asstring:=jquery.fieldbyname('ROAD').asstring;
zquery.fieldbyname('name23').asstring:=jquery.fieldbyname('TAMBON').asstring;
zquery.fieldbyname('name24').asstring:=jquery.fieldbyname('AMPHUR').asstring;
zquery.fieldbyname('x1').asstring:=jquery.fieldbyname('PROVINCE').asstring;
zquery.fieldbyname('x2').asstring:=jquery.fieldbyname('ZIPCODE').asstring;
zquery.fieldbyname('x3').asstring:=jquery.fieldbyname('RESULT_ID').asstring;
zquery.fieldbyname('x4').asstring:=jquery.fieldbyname('WelUC_ID').asstring;
zquery.fieldbyname('x5').asstring:=jquery.fieldbyname('Paid_Model').asstring;
zquery.fieldbyname('x6').asstring:=jquery.fieldbyname('RegisterID').asstring;
zquery.fieldbyname('x7').asstring:=jquery.fieldbyname('Flag').asstring;
zquery.fieldbyname('x8').asstring:=jquery.fieldbyname('Hmain_OP').asstring;
zquery.fieldbyname('x9').asstring:=jquery.fieldbyname('Type_Register').asstring;
zquery.fieldbyname('x10').asstring:=jquery.fieldbyname('Status_Frm').asstring;
zquery.fieldbyname('name').asstring:=jquery.fieldbyname('Status_Reg').asstring;
zquery.post;
//-------------------------------------------------------
jquery.next;
end;
setprogressbar(row_curr,row_curr);
showmessage('Import OK');
jquery.close;
zquery.close;
setcursorbusy(false);
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
end;
end.
-
DFM
object Form2: TForm2
Left = 0
Top = 0
Caption = 'decepticons'
ClientHeight = 187
ClientWidth = 610
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
DesignSize = (
610
187)
PixelsPerInch = 96
TextHeight = 13
object Shape26: TShape
Left = 1
Top = 121
Width = 609
Height = 66
Anchors = [akLeft, akTop, akRight, akBottom]
ExplicitWidth = 680
ExplicitHeight = 132
end
object Label1: TLabel
Left = 11
Top = 50
Width = 97
Height = 33
Caption = 'Label1'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -27
Font.Name = 'Tekton Pro Ext'
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 9
Top = 52
Width = 97
Height = 33
Caption = 'Label1'
Color = clHotLight
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -27
Font.Name = 'Tekton Pro Ext'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
OnClick = Label2Click
end
object Label3: TLabel
Left = 10
Top = 50
Width = 97
Height = 33
Caption = 'Label1'
Font.Charset = ANSI_CHARSET
Font.Color = clWhite
Font.Height = -27
Font.Name = 'Tekton Pro Ext'
Font.Style = [fsBold]
ParentFont = False
end
object Button1: TButton
Left = 388
Top = 46
Width = 101
Height = 64
Anchors = [akTop, akRight]
Caption = #3609#3635#3648#3586#3657#3634#13#10
TabOrder = 0
OnClick = Button1Click
ExplicitLeft = 413
end
object JvNavPanelHeader1: TJvNavPanelHeader
Left = 0
Top = 0
Width = 611
Anchors = [akLeft, akTop, akRight]
Caption =
#3619#3634#3618#3585#3634#3619#3609#3635#3648#3586#3657#3634' '#3588#3656#3634'RTR '#3648#3614#3639#3656#3629#3611#3619#3636#3657#3609#3610#3633#3605#3619#3649#3626#3604#3591#3585#3634#3619#3621#3591#3607#3632#3648#3610#3637#3618#3609#3626#3636#3607#3608#3660#3585#3634#3619#3619#3633#3585#3625#3634' ' +
#3650#3619#3591#3614#3618#3634#3610#3634#3621#3621#3635#3604#3623#3609
Font.Charset = ANSI_CHARSET
Font.Color = clWhite
Font.Height = -16
Font.Name = 'AngsanaUPC'
Font.Style = [fsBold]
ParentFont = False
ImageIndex = 0
ExplicitWidth = 511
end
object ProgressBar1: TProgressBar
Left = 8
Top = 136
Width = 588
Height = 28
Anchors = [akLeft, akTop, akRight]
TabOrder = 2
ExplicitWidth = 643
end
object Button2: TButton
Left = 495
Top = 46
Width = 101
Height = 64
Anchors = [akTop, akRight]
Caption = #3611#3619#3636#3657#3609
TabOrder = 3
OnClick = Button2Click
ExplicitLeft = 520
end
end
-
zquery.fieldbyname('name2').asstring:=jquery.['Pid'];
zquery.fieldbyname('name3').asstring:=jquery.['MASTERCUPID'];
zquery.fieldbyname('name4').asstring:=jquery.['TITLE'];
zquery.fieldbyname('name5').asstring:=jquery.['FNAME'];
ลองอ้างถึงฟิลด์แบบนี้ดูนะครับ ว่าได้หรือป่าว
-
นำเข้าสิทธิการรักษา ก็เชื่อมโยงผ่านเมนู ระบบงานอื่น ๆ ---->งานประกันสุขภาพ--->WelfareUC2 เลยครับ...อ.ชัยพรทำให้แล้ว ไปอ่านฐาน UCDB ของ โปรแกรม IWareFare2010 ตาราง Ucdata ครับ..