ارتباط با پایگاه داده ای

[alifatehi]

شاید این سوالی که می پرسم تکراری باشه اما رچی داخل سایت گشتم چیز مفیدی دست گیرم نشد .

در تصویر شماره یک می بنید در یک فرم از 5 جدول یک پایگاه داده در اکسس 2003 استفاده شده است.

می خواستم کد صحیح برای ارتباط با پایگاه دادم و کد دکمه هایی که در زیر تصویر است را لطف کنید بدید . ( دکمه ها قبیل است ذخیره ، حذف ، جدید ، بعدی ، قبلی )

توجه : جدول 4 و 5 زمانی که دکمه مورد نظرشان را کلید می کنید به فرم دیگری می روند نحوه کد نویسی این فرم به چه صورت است (منظورم همان دکمه ذخیره )

و سوال دیگر من نحوه کد نویسی کمبو و optionbuttom ها در پایگاه داده به چه صورت است .

در مورد کمبو اطلاعات را درون لیست property خو دکمه در ویژوال بیسیک 6 وارد کردم

خیلی محتاج کمکم

مچکر

[r_oscar2007]

یعنی شما سورس save , edit, ... را میخاهید

[senator_aka]

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

[اوبالیت به بو]

می خواستم کد صحیح برای ارتباط با پایگاه دادم و کد دکمه هایی که در زیر تصویر است را لطف کنید بدید . ( دکمه ها قبیل است ذخیره ، حذف ، جدید ، بعدی ، قبلی )

http://www.barnamenevis.org/forum/images/icons/icon1.gif شی ADODC

http://www.barnamenevis.org/forum/images/icons/icon3.gif (http://barnamenevis.org/forum/showpost.php?p=467914&postcount=27) متدهای Recordset (http://barnamenevis.org/forum/showpost.php?p=511371&postcount=4)
http://www.barnamenevis.org/forum/images/icons/icon1.gif شی ADODB

http://www.barnamenevis.org/forum/images/icons/icon3.gifمتدهای Recordset (http://barnamenevis.org/forum/showpost.php?p=511371&postcount=5)




در مورد کمبو اطلاعات را درون لیست property خو دکمه در ویژوال بیسیک 6 وارد کردم

من فكر مي كنم منظور شما اين باشه كه مقادير درون فيلد بانكتون به ترتيب به Combo Box اضافه بشه. اگه اينتوره بايد از يه حلقه نا معين استفاده كنيد:
متغير ها:


Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset

كد:


Private Sub Form_Load()
On Error GoTo Er1
Combo2.Clear
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0 ;Data Source=" & App.Path & "\Access Bank \DataBase.mdb"
rst.Open "sabtenam", cnn, adOpenKeyset, adLockOptimistic, adCmdTable
Do While Not rst.EOF
ComboBox.AddItem rst!Name
rst.MoveNext
Loop
rst.Close
cnn.Close
Set cnn = Nothing
Set rst = Nothing
Exit Sub
Er1:
MsgBox "چيزي موجود نمي باشد"
End Sub

[alifatehi]

یعنی شما سورس save , edit, ... را میخاهید

بله زمانی دکمه ذخیره اطلاعات در جداول پایگاه داده ذخیره شود
یا زمانی که حذف آن رکورد رو از جداول نام برده حذف کند
یا زمانی که دکمه قبلی یا بعدی رو می فشاریم عملیات انجام شود .

کد رو می خواستم یا نمونه ای از ان

[alifatehi]

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


منظورت از سورس چیه

اگر فقط فرم ها رو نیاز داری باشه امشب اپلود می کنم

[alifatehi]

کسی وقتشو نداره به این هم وطنش بکنه

[sohrab o]

کسی وقتشو نداره به این هم وطنش بکنه
اینم یه سورس ساده(برنامه پرسنلی) که خودم نوشتم
http://barnamenevis.org/forum/showthread.php?p=575328#post575328

[alifatehi]

ُتشکر بسیار از اقا sohrab o (http://barnamenevis.org/forum/member.php?u=7419) عزیز به خاطر برنامه پرسنلی که نوشتید

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

نحوه نوشتن کد برای optionbutton , combobox برای پایگاه داده اکسس به چه صورته ؟ ( مقدار کمبو باکس به در لیست قرار دارد )

و سوال دیگم برنامه شما 1جدول بود . اما فرم من دارای 5 جدول کد اون هم لطف می کنید بدید.

و سوال آخر ! ای علامت به چه مناست (Data1.Recordset!MS = Text5.Text)

[aminkk]

سوال منم هست