السلام عليكم ورحمة الله وبركاته
عندي قاعدة بينات paradox محتواها بالعربية و عند تحويلها إلى إكسل تظهر برموز أخرى غير مقرؤة
و شكرإ
عندي قاعدة بينات paradox محتواها بالعربية و عند تحويلها إلى إكسل تظهر برموز أخرى غير مقرؤة
و شكرإ
delphi4arab منتديات دلفي للعرب
›
منتديات دلفي للعرب التعليمية
›
سؤال و جواب حول دلفي
مشكلة تصدير قواعد بيانات Paradox محتواها باللغة العربية إلى ملف إكسل
مشكلة تصدير قواعد بيانات Paradox محتواها باللغة العربية إلى ملف إكسل
|
مشكلة تصدير قواعد بيانات Paradox محتواها باللغة العربية إلى ملف إكسل
|
14-12-2014, 05:50 PM
ا[color="red"]لسلام عليكم
لدي نفس المشكلة أخي وانتظر من الإخوة إفادتنا [/color] 
05-01-2015, 11:18 PM
هناك برنامج اسمه
paradox to access converter سوف يحل لك المشكلة ان شاء الله
08-01-2015, 10:06 AM
و عليكم السلام و رحمة الله تعالى و بركاته
أخي هناك ملحق (utilit)مع قاعدة بيانات أبسوليت يقوم بالتحويل من paradox إلى absolute و منها يمكنك التصدير إلى إكسيل بسهولة و احترافية و يدعم اللغة العربية بصفة عادية جدا بالتوفيق
09-01-2015, 11:41 AM
أوافق الأخ makhlouf فانا نفذة هذه العملية عدة مرات عليك بتحويلها إلى قاعدة absolut database تجدها هنا في الموضوع
http://delphi4arab.net/forum/showthread....e+Database و بعدها تقوم بالتحويل إلى excel بكل سهولة حيث ان القاعدة الجديدة تدعم اللغة العربية
09-01-2015, 12:03 PM
وعليكم السلام ورحمة الله وبركاته.
إقتباس :عندي قاعدة بينات paradox محتواها بالعربية و عند تحويلها إلى إكسل تظهر برموز أخرى غير مقرؤة كيف تقوم بتحويله الى اكسل؟ لأن المشكل في الأسطر البرمجية التى تقوم بتحويل.
وحيداً فريداً في التراب وإنما قرين الفتى في القبر ما كان يعمل
10-01-2015, 09:10 PM
السلام عليكم
هدا الموضوع سيسفيدك ان شاء الله http://www.delphi4arab.net/forum/showthread.php?tid=541 وهدا ايضا http://www.delphi4arab.net/forum/showthread.php?tid=205
و من طلب العلوم بغير كد _________ سيدركها إذا شاب الغراب
أقدم لك هذه الدالة تخرج الحروف عربية مجربة:
كود : Function ExportToExcel(oDataSet : TDataSet; sFile : String): Boolean;
var
iCol,iRow : Integer;
oExcel : TExcelApplication;
oWorkbook : TExcelWorkbook;
oSheet : TExcelWorksheet;
begin
iCol := 0;
iRow := 0;
result := True;
oExcel := TExcelApplication.Create(Application);
oWorkbook := TExcelWorkbook.Create(Application);
oSheet := TExcelWorksheet.Create(Application);
try
oExcel.Visible[0] := False;
oExcel.Connect;
except
result := False;
MessageDlg('Excel may not be installed', mtError, [mbOk], 0);
exit;
end;
oExcel.Visible[0] := True;
oExcel.Caption := 'Sawami Export Engine';
oExcel.Workbooks.Add(Null,0);
oWorkbook.ConnectTo(oExcel.Workbooks[1]);
oSheet.ConnectTo(oWorkbook.Worksheets[1] as _Worksheet);
// iRow := 1;
for iCol:=1 to oDataSet.FieldCount do begin
// oSheet.Cells.Item[iRow,iCol] := oDataSet.FieldDefs.Items[iCol].Name;
// oSheet.Cells.Item[iRow,iCol] := oDataSet.Fields[iCol-1].FieldName;
end;
// iRow := 2;
oDataSet.Open;
while NOT oDataSet.Eof do begin
Inc(iRow);
for iCol:=1 to oDataSet.FieldCount do begin
oSheet.Cells.Item[iRow,iCol] := oDataSet.Fields[iCol-1].AsString;
end;
oDataSet.Next;
end;
//Change the wprksheet name.
oSheet.Name := 'List of Accounts';
//Change the font properties of all columns.
oSheet.Columns.Font.Color := clPurple;
oSheet.Columns.Font.FontStyle := fsBold;
oSheet.Columns.Font.Size := 10;
//Change the font properties of a row.
oSheet.Range['A1','A1'].EntireRow.Font.Color := clNavy;
oSheet.Range['A1','A1'].EntireRow.Font.Size := 16;
oSheet.Range['A1','A1'].EntireRow.Font.FontStyle := fsBold;
oSheet.Range['A1','A1'].EntireRow.Font.Name := 'Arabic Transparent';
//Change the font properties of a row.
oSheet.Range['A2','A2'].EntireRow.Font.Color := clBlue;
oSheet.Range['A2','A2'].EntireRow.Font.Size := 12;
oSheet.Range['A2','A2'].EntireRow.Font.FontStyle := fsBold;
oSheet.Range['A2','A2'].EntireRow.Font.Name := 'Arabic Transparent';
oSheet.Range['A2','H2'].HorizontalAlignment := xlHAlignCenter;
{
//Change the font properties of a column.
oSheet.Range['A1','C1'].EntireColumn.Font.Color := clBlue;
//Change Cells color of a row.
oSheet.Range['A1', 'A1'].EntireRow.Interior.Color := clNavy;
//Change Cells color of a column.
oSheet.Range['C1', 'C1'].EntireColumn.Interior.Color := clYellow;
//Align a column.
oSheet.Range['A1','A1'].HorizontalAlignment := xlHAlignLeft;
//Set a column with manually.
// oSheet.Columns.Range['A1','A1'].ColumnWidth := 16;
}
//Auto fit all columns.
oSheet.Columns.AutoFit;
DeleteFile(sFile);
Sleep(2000);
oSheet.SaveAs(sFile);
oSheet.Disconnect;
oSheet.Free;
oWorkbook.Disconnect;
oWorkbook.Free;
oExcel.Quit;
oExcel.Disconnect;
oExcel.Free;
end;
Examples:
//Export a DBGrid to Excel:
ExportToExcel(DBGrid1.DataSource.DataSet,'C:\MyDat a.XLS');
//Export a Table to Excel:
ExportToExcel(Table1,'C:\MyData.XLS');
//Export a Query to Excel:
ExportToExcel(Query1,'C:\MyData.XLS');[/DELPHI |
|
|
يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم