ParsX.com
پذیرش پروژه از دانشجویی ... تا سازمانی 09376225339
 
   ProfileProfile   Log in to check your private messagesLog in to check your private messages  |  FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups Log inLog in   RegisterRegister 

گزارش از ديتا بيس
Goto page 1, 2  Next
 
Post new topic   Reply to topic    ParsX.com Forum Index -> ويژوال بيسيك .NET
View previous topic :: View next topic  
Author Message
ahriman
مهمون يكي دو روزه


Joined: 25 Oct 2006
Posts: 37

PostPosted: Sat Nov 11, 2006 7:46 pm    Post subject: گزارش از ديتا بيس Reply with quote

من يه سرس آماده از يه برنامه دارم كه اطلاعات يه ديتا بيس رو به صورت اچ تي ام ال در مياره ، سيو مي كنه و در آخر هم نشون مي ده . مشكل اين برنامه اينه كه اطلاعاتي رو كه با فنت فارسي هستش رو بصورت بهم ريخته و نا خوانا نشون ميده . بنظرت مشكلش چيه ؟
Back to top
arash
مدير بخش سي
مدير بخش سي


Joined: 27 Nov 2004
Posts: 1232
Location: www.parsx.com

PostPosted: Sat Nov 11, 2006 10:09 pm    Post subject: Reply with quote

اگه امکانش هست کد رو بزار ببینم
به عنوان توضیح می تونم بگم می تونی از UNICODE استفاده کنی
روی صفحه اینترنتی راست کلیک کن از قمست UNICODE دو تا یونی کد UTF_8 یا Arabic Window رو انتخاب کن
Back to top
ahriman
مهمون يكي دو روزه


Joined: 25 Oct 2006
Posts: 37

PostPosted: Tue Nov 14, 2006 10:28 am    Post subject: Reply with quote

شرمنده من نبودم
رفته بودم به يه مسافرت اجباري .
ولي توي پست بعدي اين كار رو مي كنم .
Back to top
ahriman
مهمون يكي دو روزه


Joined: 25 Oct 2006
Posts: 37

PostPosted: Tue Nov 14, 2006 5:17 pm    Post subject: Reply with quote

شرمنده من نبودم .
چشم حتما فايلش رو مي زارم ببيني .
Back to top
javid
مهمون يكي دو روزه


Joined: 29 Jun 2005
Posts: 16
Location: Tehran

PostPosted: Sat Nov 18, 2006 6:26 pm    Post subject: Reply with quote

منتظريم هنوز ...
Back to top
ahriman
مهمون يكي دو روزه


Joined: 25 Oct 2006
Posts: 37

PostPosted: Mon Nov 20, 2006 4:52 pm    Post subject: Reply with quote

اينم لينك . ولي جان من اگر به نتيجه رسيدي نري حاجي حاجي مكه . دمت گرم كار مارو هم را بنداز .
http://mntzrn1.50g.com/Ahriman/htmlrep.zip
Back to top
arash
مدير بخش سي
مدير بخش سي


Joined: 27 Nov 2004
Posts: 1232
Location: www.parsx.com

PostPosted: Tue Nov 21, 2006 5:59 am    Post subject: Reply with quote

اینی که گفتی یعنی چی ؟
Back to top
arash
مدير بخش سي
مدير بخش سي


Joined: 27 Nov 2004
Posts: 1232
Location: www.parsx.com

PostPosted: Tue Nov 21, 2006 6:30 am    Post subject: Reply with quote

فقط کافیه یک تابع رو تو 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

PostPosted: Tue Nov 21, 2006 11:19 am    Post subject: Reply with quote

آقا ممنون از لطفت .
فقط مشكلي كه هست اينه كه الان محتويات ديتا بيس رو از چپ به راست نشون ميده براي اينكه از راست به چپ بشه چيكار بايد كرد ؟ يعني بجاي اينكه شماره رديف رو از راست بزنه نه از چپ .
Back to top
ahriman
مهمون يكي دو روزه


Joined: 25 Oct 2006
Posts: 37

PostPosted: Tue Nov 21, 2006 3:16 pm    Post subject: Reply with quote

بعد از علامت سوال رو واقعا چرت نوشتم . منظورم اينه كه صفحه اچ تي ام ال و صفحه اي كه براي پرينت باز مي كنه از راست باشه . يعني بطور مثال رديف موضوعات از راست باشد . نه از چپ .
Back to top
arash
مدير بخش سي
مدير بخش سي


Joined: 27 Nov 2004
Posts: 1232
Location: www.parsx.com

PostPosted: Tue Nov 21, 2006 8:55 pm    Post subject: Reply with quote

سوال های تو اچ تی ام ال هست و ربطی به وی بی نداره

'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

PostPosted: Tue Nov 21, 2006 9:08 pm    Post subject: Reply with quote

خوب حالا مي گي چيكار كنم؟
Back to top
arash
مدير بخش سي
مدير بخش سي


Joined: 27 Nov 2004
Posts: 1232
Location: www.parsx.com

PostPosted: Thu Nov 23, 2006 12:08 am    Post subject: Reply with quote

هیچی
حالا چرا می زنی
منظوری نداشتم بابا
Back to top
ahriman
مهمون يكي دو روزه


Joined: 25 Oct 2006
Posts: 37

PostPosted: Thu Nov 23, 2006 9:36 am    Post subject: Reply with quote

مشتي زدن چيه ؟ دعوا چيه ؟ بابا ما خرتيم . ما زمين خوردتيم . بيا و آقايي كن و ما رو راهنمايي كن .
Back to top
arash
مدير بخش سي
مدير بخش سي


Joined: 27 Nov 2004
Posts: 1232
Location: www.parsx.com

PostPosted: Thu Nov 23, 2006 8:07 pm    Post subject: Reply with quote

ahriman wrote:
مشتي زدن چيه ؟ دعوا چيه ؟ بابا ما خرتيم . ما زمين خوردتيم . بيا و آقايي كن و ما رو راهنمايي كن .


ما کوچیکتیم
Back to top
Display posts from previous:   
Post new topic   Reply to topic    ParsX.com Forum Index -> ويژوال بيسيك .NET All times are GMT + 3.5 Hours
Goto page 1, 2  Next
Page 1 of 2

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum