بتاريخ: 8 أغسطس 200718 سنة comment_106776 السلام عليكماريد انشاء استعلام باستخدام مكتبه OO4O مع العلم انى اتعامل مع الفيجوال بيسيك VB 6.0و اتعامل مع الكريستال ريبورت وقد طال زمن البحث لان الكثير ممن سألتهم يجهلون تماما اوراكل والتعامل معه ومكتباتهفلم ارى خيرا من منتداكم وموقعكم الذى انتظر منه الرد الفعال على هذا السؤالاليكم ما استعطت تجميعه من اكواد ولكن للاسف لم احصل على نتيجه Module @Public CS As Object Public DB As Object Public Tabel1 As ObjectPublic Query1 As Object-------------------------------------------------------------- Form Load @Set CS = New OracleInProcServer.OraSessionClass ( &Set DB = CS.OpenDatabase("", "general/case", 0 (&Set Tabel1 = DB.CreateDynaset("Select * from Tabel1 ", 0 --------------------------------------------------------------Command @(& Set Query1 = DB.CreateSql("Select F1,F2 from Tabel1", 0Query1.Refresh "CrystalReport1.ReportFileName = "Q1.rptCrystalReport1.Connect = "uid=intelligence;pwd=caseCrystalReport1.Action = 1-------------------------------------------------------------- تقديم بلاغ
انضم إلى المناقشة
يمكنك المشاركة الآن والتسجيل لاحقاً. إذا كان لديك حساب, سجل دخولك الآن لتقوم بالمشاركة من خلال حسابك.