نشان دادن محتوای بانک اطلاعات

[alireza1375]

چگونه می توانم جزئیات بانک اطلاعاتی ام را در یک فرم نشان دهم.تعداد موضوعات که مثل ID و اسم و نام خانوادگی و ... 7 تا است.

[SlowCode]

Print "Fileds: "; Data1.Recordset.Fields.Count
For i = 0 To Data1.Recordset.Fields.Count - 1
Print Data1.Recordset.Fields(i).Name
Next
به جای name هم میتونی type,.. رو بنویسی.

[alireza1375]

پس نیازی نیست که چیزی خاصی به فرم اضافه کرد.راستی می خواستم بدانم وقتی می خواهم بانک اطلاعاتی را به vb6 اتصال دهم پیغام زیر را می دهد.unrecognized database format و ادامه اش آدرس فایل.یعنی زمانی که می خواهم ریکرد سورس را تنظیم کنم این پیغام را می دهد.اکسس هم 2010 است.

[محسن واژدی]

پس نیازی نیست که چیزی خاصی به فرم اضافه کرد.
سلام علیکم
اگر بخواهیم از Data-Control استفاده کنیم نه


راستی می خواستم بدانم وقتی می خواهم بانک اطلاعاتی را به vb6 اتصال دهم پیغام زیر را می دهد.unrecognized database format و ادامه اش آدرس فایل.یعنی زمانی که می خواهم ریکرد سورس را تنظیم کنم این پیغام را می دهد.اکسس هم 2010 است.

بهنگام انتخاب نوع بانک، نسخه های Access 2002-2003 یا 2000 را انتخاب کنین،

موفق باشید

[alireza1375]

میشه راهنمایی کنید از چه قسمتی باید این کار را انجام دهم؟

[SlowCode]

از چه روشی واسه ساخت پایگاه دادت استفاده میکنی؟
اگه با خود اکسس درست میکنی، این گزینه رو بزن:
http://www.img4up.com/up2/03000082439170931260.jpg

ولی من برنامه خود وی بی رو پپیشنهاد میدم، چون حجم دیتابیس هنگام ساخت خیلی کمه. مثلا من الان یه جدول درست کردم که حجمش با خود اکسس 264 کیلوبایت شد ولی با برنامه وی بی 46 شد.
از منوی Add-ins --> visual data manager بازش کنی.

[alireza1375]

من که هر کاری کردم نتونستم شما می توانید برنامه را که جزئیات دیتابیس اکسس را نشان دهد بسازید.البته با این دیتابیس.
93548

[SlowCode]

چرا نتونستی؟ من الان با دیتابیس تو امتحان کردم مشکلی نداشت.
دیتابیست رو به یه کنترل (ado یا dao)وصل کن بعد کد زیر رو بنویس:

Private Sub Command1_Click()
Print "Fileds: "; Data1.Recordset.Fields.Count
For i = 0 To Data1.Recordset.Fields.Count - 1
Print Data1.Recordset.Fields(i).Name
Next
End Sub

[alireza1375]

باز هم نتونستم آقا محسن 15.من کارهای زیر را انجام می دهم.این کار ها درست است یا نه؟
1- ساخت DataGrid1
2- ساخت Adodc1
3- ساخت یک دکمه
4- DataGrid1 را از طریق دیتا سورس به Adodc1 متصل می کنم.
5- Adodc1 را از چه طریقی باید به بانک اطلاعاتی متصل کرد.
نمی دونم متوجه شدید یا نه من می خواهم به صورت یک جدول باشد.
یک نگاهی به عکس زیر بندازید مثل اون می خواهم اطلاعات را تشان دهد.
http://sourcebaran.com/wp-content/uploads/2011/08/c1.jpg
من مبتدی هستم خیلی وارد نیستم تو بانک ها خواهشا تیکه به تیکه توضیح دهید.

[SlowCode]

الان سوالت فرق کرد.
از صفر توضیح میدم، برو به custom کنترل adodc بعد مثل تصاویر پایین تنظیم کن:

http://www.img4up.com/up2/54235411100508636183.jpg
دکمه buld رو بزن.
http://www.img4up.com/up2/56479530851691497303.jpg
گزینه اول یا دوم رو انتخاب کن. چون دیتابیست اکسسه، البته از مورد های دیگه هم میتونی استفاده کنی.
http://www.img4up.com/up2/75871270599978189893.jpg
مسیر دیتابیست رو مشخص کن.
http://www.img4up.com/up2/11317146032793261916.jpg

[alireza1375]

آقا محسن 15 ببخشید اینقدر سوال می کنم.وقتی این کار را کردم و اتصالات را انجام دادم.(تمام کارهایی که گفتید ساخت اون جدول و aco و اتصال به یکدیگر پیغام زیر را هنگام اجرا می دهد.
Syntax error in FROM clause.

[محسن واژدی]

آقا محسن 15 ببخشید اینقدر سوال می کنم.وقتی این کار را کردم و اتصالات را انجام دادم.(تمام کارهایی که گفتید ساخت اون جدول و aco و اتصال به یکدیگر پیغام زیر را هنگام اجرا می دهد.
Syntax error in FROM clause.

سلام علیکم
اینگونه که از خطا برمیاید ترکیب دستور sql بکار رفته مشکل دارد، در صورت امکان متن دستور را هم ضمیمه کنید

موفق باشید

[alireza1375]

این سورس فرم است.

Private Sub Form_Load()

End Sub

Private Sub XPButton1_Click(Index As Integer)

Data1.Recordset.AddNew
End Sub

Private Sub XPButton2_Click()
Data1.Recordset.Delete
End Sub

Private Sub XPButton3_Click()
Data1.Recordset.MoveFirst

End Sub

Private Sub XPButton4_Click()
Data1.Recordset.MoveLast
End Sub

Private Sub XPButton5_Click()
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
Beep
Data1.Recordset.MoveLast
End If
End Sub

Private Sub XPButton6_Click()
Data1.Recordset.MovePrevious
If Data1.Recordset.BOF Then
Beep
Data1.Recordset.MoveFirst
End If
End Sub

Private Sub XPButton7_Click()
Dim n As Integer
n = InputBox("شماره را وارد کنيد")
Data1.Recordset.MoveFirst
Data1.Recordset.Move (Val(n))
End Sub


این عکس از Adodc1
1- Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\vb6-part2\data.mdb;Persist Security Info=False
این عکس محیط برنامه
این هم عکس DataGrid1
936159361693617

[SlowCode]

خوب شما چرا توی RecordSource نوشتین "لیست نرم افزارها"؟ توی تصویر بالایی!!!احتمالا اینو با Recordset اشتباهی گرفتی.
مشکل از همونه، عوض اون بنویس:
select * from table
و به جای table هم نام جدولت رو بنویس.

یه نکته هم بگم، سعی کن کنترل هات رو نام گذاری کنی، یعنی عوض XPButton2 بنویس cmdDelete چون اگه تعداد دکمه هات زیاد بشه گیج میشی و وقتت تلف میشه.