View previous topic :: View next topic |
Author |
Message |
ahriman مهمون يكي دو روزه
Joined: 25 Oct 2006 Posts: 37
|
Posted: Sat Nov 11, 2006 7:46 pm Post subject: گزارش از ديتا بيس |
|
|
من يه سرس آماده از يه برنامه دارم كه اطلاعات يه ديتا بيس رو به صورت اچ تي ام ال در مياره ، سيو مي كنه و در آخر هم نشون مي ده . مشكل اين برنامه اينه كه اطلاعاتي رو كه با فنت فارسي هستش رو بصورت بهم ريخته و نا خوانا نشون ميده . بنظرت مشكلش چيه ؟ |
|
Back to top |
|
|
arash مدير بخش سي
Joined: 27 Nov 2004 Posts: 1232 Location: www.parsx.com
|
Posted: Sat Nov 11, 2006 10:09 pm Post subject: |
|
|
اگه امکانش هست کد رو بزار ببینم
به عنوان توضیح می تونم بگم می تونی از UNICODE استفاده کنی
روی صفحه اینترنتی راست کلیک کن از قمست UNICODE دو تا یونی کد UTF_8 یا Arabic Window رو انتخاب کن |
|
Back to top |
|
|
ahriman مهمون يكي دو روزه
Joined: 25 Oct 2006 Posts: 37
|
Posted: Tue Nov 14, 2006 10:28 am Post subject: |
|
|
شرمنده من نبودم
رفته بودم به يه مسافرت اجباري .
ولي توي پست بعدي اين كار رو مي كنم . |
|
Back to top |
|
|
ahriman مهمون يكي دو روزه
Joined: 25 Oct 2006 Posts: 37
|
Posted: Tue Nov 14, 2006 5:17 pm Post subject: |
|
|
شرمنده من نبودم .
چشم حتما فايلش رو مي زارم ببيني . |
|
Back to top |
|
|
javid مهمون يكي دو روزه
Joined: 29 Jun 2005 Posts: 16 Location: Tehran
|
Posted: Sat Nov 18, 2006 6:26 pm Post subject: |
|
|
منتظريم هنوز ... |
|
Back to top |
|
|
ahriman مهمون يكي دو روزه
Joined: 25 Oct 2006 Posts: 37
|
|
Back to top |
|
|
arash مدير بخش سي
Joined: 27 Nov 2004 Posts: 1232 Location: www.parsx.com
|
Posted: Tue Nov 21, 2006 5:59 am Post subject: |
|
|
اینی که گفتی یعنی چی ؟ |
|
Back to top |
|
|
arash مدير بخش سي
Joined: 27 Nov 2004 Posts: 1232 Location: www.parsx.com
|
Posted: Tue Nov 21, 2006 6:30 am Post subject: |
|
|
فقط کافیه یک تابع رو تو Report Object تغییر بدی به این شکل:
|
'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=14
Public Sub OpenReport()
If ReportFile <> vbNullString And intFileNum = 0 Then
If FileExists(ReportFile) Then
Kill ReportFile
End If
intFileNum = FreeFile
Open ReportFile For Append As #intFileNum
Print #intFileNum, "<html><head>"
If Title <> vbNullString Then
Print #intFileNum, "<title>" & Title & "</title>"
End If
If CssFile <> vbNullString Then
Print #intFileNum, "<link rel=""stylesheet"" href="" file:///" & CssFile & """ type=""text/css"">"
End If
Print #intFileNum, "<meta http-equiv=""Content-Type"" content=""text/html; charset=windows"">"
Print #intFileNum, "<script type=""Text/JavaScript"" language=""JavaScript"">"
Print #intFileNum, "<!--"
Print #intFileNum, "pageno = 1;"
Print #intFileNum, "//-->"
Print #intFileNum, "</script>"
Print #intFileNum, "</head>"
Print #intFileNum, "<body><div>"
If strHeader <> vbNullString Then
Print #intFileNum, strHeader
End If
End If
End Sub
|
تنها فرقی که کرده utf-8 رو کردم windows و با این کار همه چی حل شد |
|
Back to top |
|
|
ahriman مهمون يكي دو روزه
Joined: 25 Oct 2006 Posts: 37
|
Posted: Tue Nov 21, 2006 11:19 am Post subject: |
|
|
آقا ممنون از لطفت .
فقط مشكلي كه هست اينه كه الان محتويات ديتا بيس رو از چپ به راست نشون ميده براي اينكه از راست به چپ بشه چيكار بايد كرد ؟ يعني بجاي اينكه شماره رديف رو از راست بزنه نه از چپ . |
|
Back to top |
|
|
ahriman مهمون يكي دو روزه
Joined: 25 Oct 2006 Posts: 37
|
Posted: Tue Nov 21, 2006 3:16 pm Post subject: |
|
|
بعد از علامت سوال رو واقعا چرت نوشتم . منظورم اينه كه صفحه اچ تي ام ال و صفحه اي كه براي پرينت باز مي كنه از راست باشه . يعني بطور مثال رديف موضوعات از راست باشد . نه از چپ . |
|
Back to top |
|
|
arash مدير بخش سي
Joined: 27 Nov 2004 Posts: 1232 Location: www.parsx.com
|
Posted: Tue Nov 21, 2006 8:55 pm Post subject: |
|
|
سوال های تو اچ تی ام ال هست و ربطی به وی بی نداره
|
'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=14
Public Sub OpenReport()
If ReportFile <> vbNullString And intFileNum = 0 Then
If FileExists(ReportFile) Then
Kill ReportFile
End If
intFileNum = FreeFile
Open ReportFile For Append As #intFileNum
Print #intFileNum, "<html><head>"
If Title <> vbNullString Then
Print #intFileNum, "<title>" & Title & "</title>"
End If
If CssFile <> vbNullString Then
Print #intFileNum, "<link rel=""stylesheet"" href="" file:///" & CssFile & """ type=""text/css"">"
End If
Print #intFileNum, "<meta http-equiv=""Content-Type"" content=""text/html; charset=windows"">"
Print #intFileNum, "<script type=""Text/JavaScript"" language=""JavaScript"">"
Print #intFileNum, "<!--"
Print #intFileNum, "pageno = 1;"
Print #intFileNum, "//-->"
Print #intFileNum, "</script>"
Print #intFileNum, "</head>"
Print #intFileNum, "<body><div dir=""rtl"">"
If strHeader <> vbNullString Then
Print #intFileNum, strHeader
End If
End If
End Sub
|
|
|
Back to top |
|
|
ahriman مهمون يكي دو روزه
Joined: 25 Oct 2006 Posts: 37
|
Posted: Tue Nov 21, 2006 9:08 pm Post subject: |
|
|
خوب حالا مي گي چيكار كنم؟ |
|
Back to top |
|
|
arash مدير بخش سي
Joined: 27 Nov 2004 Posts: 1232 Location: www.parsx.com
|
Posted: Thu Nov 23, 2006 12:08 am Post subject: |
|
|
هیچی
حالا چرا می زنی
منظوری نداشتم بابا |
|
Back to top |
|
|
ahriman مهمون يكي دو روزه
Joined: 25 Oct 2006 Posts: 37
|
Posted: Thu Nov 23, 2006 9:36 am Post subject: |
|
|
مشتي زدن چيه ؟ دعوا چيه ؟ بابا ما خرتيم . ما زمين خوردتيم . بيا و آقايي كن و ما رو راهنمايي كن . |
|
Back to top |
|
|
arash مدير بخش سي
Joined: 27 Nov 2004 Posts: 1232 Location: www.parsx.com
|
Posted: Thu Nov 23, 2006 8:07 pm Post subject: |
|
|
ahriman wrote: | مشتي زدن چيه ؟ دعوا چيه ؟ بابا ما خرتيم . ما زمين خوردتيم . بيا و آقايي كن و ما رو راهنمايي كن . |
ما کوچیکتیم |
|
Back to top |
|
|
|