امتیاز موضوع:
  • 0 رأی - میانگین امتیازات: 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشکل در ساختن تیبل و گزارش گیری، خیلی مهمه کمکم کنید
نویسنده پیام
jener آفلاین
تازه وارد

ارسال‌ها: 3
موضوع‌ها: 2
تاریخ عضویت: تير ۱۳۸۸

تشکرها : 0
( 0 تشکر در 0 ارسال )
ارسال: #1
مشکل در ساختن تیبل و گزارش گیری، خیلی مهمه کمکم کنید
با سلام
می خوام یک برنامه بنویسم که داخلش مشتری رو تعریف کنم یعنی طوری که هر مشتری 1 تیبل داشته باشه و چند فیلد (نام ، آدرس، تلفن ...) ، کدی رو می خوام که بتونم تیبل رو توی دیتابیس درست کنم همراه با فیلد ها


بعد برای گزارش گیری هم کدی رو می خوام که مثلا از کامبو بکس نام مشتری رو انتخاب کنم و با زدن دکمه گزارش گیری از همون تیبل مربوط به همان مشتری برام گزارش گیری کنه

خیلی واسم مهم اگه سورسش باشه که بهتر اگر هم تیکه کدها هم باشه کافی
با تشکر
۲۶-تير-۱۳۸۸, ۱۴:۴۲:۳۱
ارسال‌ها
پاسخ
nilda آفلاین
كاربر تک ستاره
*

ارسال‌ها: 28
موضوع‌ها: 7
تاریخ عضویت: دى ۱۳۸۶

تشکرها : 15
( 25 تشکر در 10 ارسال )
ارسال: #2
RE: مشکل در ساختن تیبل و گزارش گیری، خیلی مهمه کمکم کنید
سلام
با sql یا acsess؟
در ضمن با چه زبان برنامه نویسی؟؟؟؟؟؟؟؟//
منظورتون اینه که می خواین در موقع اجرا جدول بسازید یا در موقع اجرا فیلد اضافه کنید یا رکورد؟؟؟؟؟؟؟؟؟
در ضمن می خواین به ازای هر مشتری جدول جدیدی داشته باشید یا رکورد جدید؟؟؟؟؟؟؟؟؟؟
۲۶-تير-۱۳۸۸, ۱۸:۰۶:۰۴
ارسال‌ها
پاسخ
jener آفلاین
تازه وارد

ارسال‌ها: 3
موضوع‌ها: 2
تاریخ عضویت: تير ۱۳۸۸

تشکرها : 0
( 0 تشکر در 0 ارسال )
ارسال: #3
RE: مشکل در ساختن تیبل و گزارش گیری، خیلی مهمه کمکم کنید
توی وی بی ، موفق شدم جدول درست کنم و فیلد درست کنم یعنی کدشو پیدا کردم حالا می خوام فیلد ها رو مقدار دهی کنم چطوری ؟

Dim ADOXcatalog As New Catalog
Dim ADOXtable As New Table
Dim ADOXindex As New ADOX.Index

Private Sub Command1_Click()

ADOXcatalog.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path + "\Database.mdb"
ADOXtable.Name = Text2.Text
ADOXtable.Columns.Append "Column1"
ADOXtable.Columns.Append "Column2"
ADOXtable.Columns.Append "f"
ADOXcatalog.Tables.Append ADOXtable

errhandler:
If Err.Number = -2147217897 Then
MsgBox "Database already exists", vbCritical, "Error"
ElseIf Err.Number <> 0 Then
MsgBox Err.Description & vbCrLf & "Operation not complete", vbCritical, "Error"
End If

Set ADOXtable = Nothing
Set ADOXindex = Nothing
Set ADOXcatalog = Nothing

End Sub

کدی که بتونم فیلد ها رو مقدار دهی کنم رو می خوام
گزارش گیری از هر تیبل مورد نظر هم با کد می خوام
با تشکر nilda ممنون که پاسخ دادی
(آخرین ویرایش در این ارسال: ۲۶-تير-۱۳۸۸, ۱۹:۲۳:۲۸، توسط jener.)
۲۶-تير-۱۳۸۸, ۱۹:۱۳:۲۴
ارسال‌ها
پاسخ


موضوعات مرتبط با این موضوع...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  گزارش گیری از بانک پسورد دار ali-software 1 3,527 ۳۰-بهمن-۱۳۹۰, ۱۸:۵۷:۵۶
آخرین ارسال: vahidazad
  پشتیبان گیری از بانک اطلاعاتی alaska 49 42,335 ۰۷-مرداد-۱۳۸۸, ۱۳:۰۰:۳۹
آخرین ارسال: red11011
  بردن نتایج یک جستجو به قسمت گزارش mm_ley 14 11,623 ۱۵-اسفند-۱۳۸۷, ۱۲:۴۵:۵۴
آخرین ارسال: far_222000
Rolleyes (کمک خیلی فوری)افزایش کاراکتر در فیلدهای اکسس hamed_Arfaee 1 2,643 ۲۸-تير-۱۳۸۷, ۱۹:۱۳:۲۷
آخرین ارسال: hamed_Arfaee

پرش به انجمن:


کاربرانِ درحال بازدید از این موضوع: 1 مهمان

صفحه‌ی تماس | IranVig | بازگشت به بالا | | بایگانی | پیوند سایتی RSS