« หน้าที่แล้ว ต่อไป »
หน้า: [1]   ลงล่าง

ผู้เขียน หัวข้อ: ช่วยด้วยค่ะ ทดลองใช้ script นำข้อมูล access เข้าmysql แล้วเป็นช่องว่างๆ  (อ่าน 7956 ครั้ง)

0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

ออฟไลน์ LDHP

  • Full Member
  • ***
  • กระทู้: 128
  • พิศมัย พื้นนวล พยาบาลชำนาญการ - โรงพยาบาลลำดวน
  • Respect: 0
    • ดูรายละเอียด
ช่วยด้วยค่ะ ทดลองใช้ script นำข้อมูล access เข้าmysql แล้วเป็นช่องว่างๆ
« เมื่อ: พฤษภาคม 02, 2011, 15:01:13 PM »
0
ทดลองใช้ script นำข้อมูล access เข้าmysql 
ที่อยู่ในฟอเดอร์ C:\Program Files\HOSxP\script
พอนำเข้าแล้ว จำนวนเร็คคอร์ดออกมาเท่ากัน แต่ข้อมูลในฟิลด์เป็นช่องว่างๆ ไม่มีอะไรเลย

รบกวนช่วยแนะแนวทางด้วยนะคะ...
บันทึกการเข้า
master : ibm 3350 xeon 2.66GHz ram 2G  HD 144
  cenos 5.3 mysql 5.1.30

     slave : P4  2.8GHz  ram 2G HD 80G
        redhat 5.0 mysql 5.0.41


ขอขอบคุณท่านอาจารย์ทั้งหลายนะค่ะ ที่ช่วยเหลือให้ความรู้มากมาย

ออฟไลน์ LDHP

  • Full Member
  • ***
  • กระทู้: 128
  • พิศมัย พื้นนวล พยาบาลชำนาญการ - โรงพยาบาลลำดวน
  • Respect: 0
    • ดูรายละเอียด
Re: ช่วยด้วยค่ะ ทดลองใช้ script นำข้อมูล access เข้าmysql แล้วเป็นช่องว่างๆ
« ตอบกลับ #1 เมื่อ: พฤษภาคม 02, 2011, 15:24:23 PM »
0
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.
บันทึกการเข้า
master : ibm 3350 xeon 2.66GHz ram 2G  HD 144
  cenos 5.3 mysql 5.1.30

     slave : P4  2.8GHz  ram 2G HD 80G
        redhat 5.0 mysql 5.0.41


ขอขอบคุณท่านอาจารย์ทั้งหลายนะค่ะ ที่ช่วยเหลือให้ความรู้มากมาย

ออฟไลน์ LDHP

  • Full Member
  • ***
  • กระทู้: 128
  • พิศมัย พื้นนวล พยาบาลชำนาญการ - โรงพยาบาลลำดวน
  • Respect: 0
    • ดูรายละเอียด
Re: ช่วยด้วยค่ะ ทดลองใช้ script นำข้อมูล access เข้าmysql แล้วเป็นช่องว่างๆ
« ตอบกลับ #2 เมื่อ: พฤษภาคม 02, 2011, 15:25:33 PM »
0
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
บันทึกการเข้า
master : ibm 3350 xeon 2.66GHz ram 2G  HD 144
  cenos 5.3 mysql 5.1.30

     slave : P4  2.8GHz  ram 2G HD 80G
        redhat 5.0 mysql 5.0.41


ขอขอบคุณท่านอาจารย์ทั้งหลายนะค่ะ ที่ช่วยเหลือให้ความรู้มากมาย

ออฟไลน์ decepticons

  • Newbie
  • *
  • กระทู้: 4
  • Respect: 0
    • ดูรายละเอียด
Re: ช่วยด้วยค่ะ ทดลองใช้ script นำข้อมูล access เข้าmysql แล้วเป็นช่องว่างๆ
« ตอบกลับ #3 เมื่อ: พฤษภาคม 10, 2011, 10:12:21 AM »
0
    zquery.fieldbyname('name2').asstring:=jquery.['Pid'];
    zquery.fieldbyname('name3').asstring:=jquery.['MASTERCUPID'];
    zquery.fieldbyname('name4').asstring:=jquery.['TITLE'];
    zquery.fieldbyname('name5').asstring:=jquery.['FNAME'];


ลองอ้างถึงฟิลด์แบบนี้ดูนะครับ ว่าได้หรือป่าว
บันทึกการเข้า
 

ออฟไลน์ เกื้อกูล ครับ..

  • Hero Member
  • *****
  • กระทู้: 12,611
  • Respect: +169
    • ดูรายละเอียด
    • โรงพยาบาลปากท่อ
Re: ช่วยด้วยค่ะ ทดลองใช้ script นำข้อมูล access เข้าmysql แล้วเป็นช่องว่างๆ
« ตอบกลับ #4 เมื่อ: พฤษภาคม 10, 2011, 10:35:53 AM »
0
นำเข้าสิทธิการรักษา ก็เชื่อมโยงผ่านเมนู  ระบบงานอื่น ๆ  ---->งานประกันสุขภาพ--->WelfareUC2 เลยครับ...อ.ชัยพรทำให้แล้ว ไปอ่านฐาน  UCDB  ของ โปรแกรม  IWareFare2010 ตาราง  Ucdata ครับ..
บันทึกการเข้า
Implement  HOSxP  Start 2548 ---> NOW!
Station : 140 Client   V.3 Version  3.67.7.8
Server  : CENTOS 7 +MySQL maria 10.x.x
หน้า: [1]   ขึ้นบน
« หน้าที่แล้ว ต่อไป »