имя файла своё вставь и имя листа... возможно понадобится доустановить коннектор https://dev.mysql.com/downloads/connector/odbc/
файл свой прикрепить немогу.
Add(MainForm,2953706,21,105)
{
Width=1285
Height=667
}
Add(DS_OLEDB,3896685,553,252)
{
Name="drv1"
Point(onError)
link(onCreate,6271331:doOn,[])
link(onError,6271331:doOff,[(618,265)(618,251)])
}
Add(FormatStr,861147,497,252)
{
Mask="DRIVER=Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb);\r\nDbq=%1;\r\nFirstRowWhasNames=0;\r\nReadOnly=true;\r\nScanRows=0;"
Point(FString)
link(onFString,3896685:doOpen,[])
AddHint(47,-181,196,78,Mask)
}
Add(DSC_Query,16327803,497,371)
{
DSManager="drv1"
link(onQuery,2044533:doStr,[(587,377)(587,363)])
}
Add(FormatStr,3222802,392,371)
{
DataCount=3
Mask="SELECT * FROM `%3`.`%2$`"
Point(FString)
link(onFString,16327803:doQuery,[])
link(Str2,8219651:Text,[])
link(Str3,1323844:Part,[(412,303)(454,303)])
AddHint(-180,-51,149,13,Mask)
}
Add(FilePartElm,1323844,448,203)
{
Point(Part)
link(onPart,8775745:doAdd,[(524,209)(524,174)])
}
Add(Hub,13069903,406,245)
{
InCount=2
OutCount=3
link(onEvent1,1323844:doPart,[(434,251)(434,209)])
link(onEvent2,861147:doString,[])
link(onEvent3,15446330:doAdd,[(458,265)(458,524)])
}
Add(Edit,8219651,399,287)
{
Top=135
Width=155
Text="allpoints.cr"
}
Add(LED,6271331,651,238)
{
Left=75
Top=50
}
Add(Button,1227267,266,364)
{
Left=5
Top=110
Caption="Открыть"
link(onClick,5525649:doEvent2,[])
}
Add(RichEdit,4526577,770,343)
{
Left=30
Top=230
Width=415
Height=240
ScrollBars=2
}
Add(MT_String,2044533,644,357)
{
link(onResult,4958151:doEvent1,[(688,363)(688,398)])
}
Add(Hub,5525649,329,357)
{
InCount=2
OutCount=3
link(onEvent1,4526577:doClear,[(563,363)(563,356)])
link(onEvent2,3222802:doString,[(367,370)(367,377)])
}
Add(StringTable,8886953,805,448)
{
Left=520
Top=70
Width=690
Height=510
Columns=#4:A=39|4:B=39|4:C=39|4:D=39|4:E=39|4:F=39|4:G=39|4:H=39|4:I=39|4:J=39|4:K=39|4:L=39|4:M=39|4:N=39|4:O=39|4:P=39|4:Q=39|4:R=39|4:S=39|4:T=39|4:U=39|4:V=39|4:W=39|4:X=39|4:Y=39|4:Z=39|5:AA=39|5:AB=39|5:AC=39|5:AD=39|5:AE=39|5:AF=39|
Grid=0
Point(Matrix)
}
Add(Hub,4958151,707,392)
{
link(onEvent1,4526577:doAdd,[(728,398)(728,349)])
link(onEvent2,8886953:doAdd,[(742,405)(742,454)])
}
Add(Button,11796961,224,252)
{
Left=5
Top=20
Width=90
Caption="newOpen Excel"
link(onClick,11916269:doStrCat,[])
}
Add(StrCat,11916269,273,252)
{
Str2="data\\rpt004.xls"
link(onStrCat,9202895:doEvent1,[])
link(Str1,14298259:CurrentDir,[])
}
Add(Dir,14298259,273,210)
{
}
Add(RichEdit,15446330,497,518)
{
Left=165
Top=5
Width=320
Height=200
}
Add(RichEdit,8775745,567,168)
{
Left=515
Top=5
Width=535
Height=60
}
Add(Hub,9202895,336,252)
{
link(onEvent1,13069903:doEvent2,[])
link(onEvent2,5525649:doEvent1,[(364,265)(316,345)(316,363)])
}
Add(Button,12441475,658,476)
{
Left=455
Top=560
Caption="clear"
link(onClick,8886953:doClear,[(748,482)(748,461)])
}
Add(Button,10516235,742,588)
{
Left=440
Top=510
Caption="dosave"
Data=String(001.txt)
link(onClick,8886953:doSave,[(790,594)(790,482)])
}
Add(Button,12841789,728,546)
{
Left=440
Top=480
Caption="doload"
Data=String(001.txt)
link(onClick,8886953:doLoad,[(782,552)(782,475)])
}