اتصال به بانك نمي شود!

[baharane]

با سلام

چه كار كنم ؟ هر چه تلاش مي كنم

اجرا نميشه اطلاعات داده شده وارد بانك نميشه خطاي 3001 ميد هد

Private Sub Form_Load()
Cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\librar.mdb;" & _
"Mode=ReadWrite;" & _
"Persist Security Info=False;" & _
"Jet OLEDB:Database Password = 1"

Cn.Open
Rs.CursorLocation = adUseClient
Rs.Open "mem", Cn, adOpenStatic, adLockPessimistic
Rs.Close
Cn.Close
Set Rs = Nothing
Set Cn = Nothing
End Sub

[M-NINJA]

با چه چیزی میخوای با بانک ارتباط بر قرار کنی؟

[baharane]

با چه چیزی میخوای با بانک ارتباط بر قرار کنی؟

با همان cn كه خودتون در يك صفحه از سايت آموزش داديد ؟مگه همين جور نيست
من از refrence هم (adodb)آوردم :افسرده:

[Pr0grammer]

شاید این کتاب بتونه براتون مفید باشه :
http://barnamenevis.org/forum/showthread.php?t=235192

آموزش ارتباط با بانک، اضافه، ویرایش و حذف کردن رکوردها کاملاً توضیح داده شده...

[M.T.P]

با سلام
چه كار كنم ؟ هر چه تلاش مي كنم
اجرا نميشه اطلاعات داده شده وارد بانك نميشه خطاي 3001 ميد هد

Private Sub Form_Load()
Cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\librar.mdb;" & _
"Mode=ReadWrite;" & _
"Persist Security Info=False;" & _
"Jet OLEDB:Database Password = 1"

Cn.Open
Rs.CursorLocation = adUseClient
Rs.Open "mem", Cn, adOpenStatic, adLockPessimistic
Rs.Close
Cn.Close
Set Rs = Nothing
Set Cn = Nothing
End Sub

شما سرویس دهنده رو معرفی کردین با بانک ارتباط برقرار کردین ، جدول رو هم تو رکوردست ریختین بعد در خط بعدیش پرونده رو کلا بستین گذاشتین کنار. :لبخند:
4 خط آخر رو تو Form_Unload بنویسید.

[baharane]

شما سرویس دهنده رو معرفی کردین با بانک ارتباط برقرار کردین ، جدول رو هم تو رکوردست ریختین بعد در خط بعدیش پرونده رو کلا بستین گذاشتین کنار. :لبخند:
4 خط آخر رو تو Form_Unload بنویسید.
mtp عزيز سلام از پاسخت خيلي ممنون :قلب:



باز هم اطلاعات وارد نشد پس از وارد كردن اطلاعات از طريق فرم نيازي به دكمه اي نيست كه ورود اطلاعات را تثبيت كند كدي براي آن دكمه لازم نيست؟


Private Sub Form_Load()
Cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\LIB.mdb;" & _
"Mode=ReadWrite;" & _
"Persist Security Info=False;" & _
"Jet OLEDB:Database Password = 1"
Cn.Open
Rs.CursorLocation = adUseClient
Rs.Open "members", Cn, adOpenStatic, adLockPessimistic

End Sub

Private Sub Form_Unload(Cancel As Integer)
Rs.Close
Cn.Close
Set Rs = Nothing
Set Cn = Nothing
End Sub

[M.T.P]

باز هم اطلاعات وارد نشد
با دستورات بالا اطلاعات خونده میشه ، چیزی ثبت نمیشه.


پس از وارد كردن اطلاعات از طريق فرم نيازي به دكمه اي نيست كه ورود اطلاعات را تثبيت كند كدي براي آن دكمه لازم نيست؟
یک کنترل DataGrid رو فرم بزار
در آخر کدهای Form_Load این کد رو هم اضافه کن:


Set DataGrid1.DataSource = Rs
DataGrid1.Refresh

[baharane]

با دستورات بالا اطلاعات خونده میشه ، چیزی ثبت نمیشه.


یک کنترل DataGrid رو فرم بزار
در آخر کدهای Form_Load این کد رو هم اضافه کن:



Set DataGrid1.DataSource = Rs




DataGrid1.Refresh






عزيز سلام M.T.P

، از پاسخ و حوصله شما بسيار سپاسگذارم

بيبينيد من مي خواهم از طريق فرمم اطلاعاتي را وارد كرده و سپس آنها را در بانك اطلاعاتي كه در خود وي بي ساختم در جدول مربوطه ببينم . اصلاً اين فرضيه شدني است ؟ من در جدول مربوطه بانك اطلاعاتي هيچ اطلاعاتي نمي بينم .

Private Sub Form_Load()
Cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\LIB.mdb;" & _
"Mode=ReadWrite;" & _
"Persist Security Info=False;" & _
"Jet OLEDB:Database Password = 1"
Cn.Open
Rs.CursorLocation = adUseClient
Rs.Open "members", Cn, adOpenStatic, adLockPessimistic
Set DataGrid1.DataSource = Rs
DataGrid1.Refresh
End Sub

Private Sub Form_Unload(Cancel As Integer)
Rs.Close
Cn.Close
Set Rs = Nothing
Set Cn = Nothing
End Sub

[M.T.P]

بيبينيد من مي خواهم از طريق فرمم اطلاعاتي را وارد كرده و سپس آنها را در بانك اطلاعاتي كه در خود وي بي ساختم در جدول مربوطه ببينم . اصلاً اين فرضيه شدني است ؟ من در جدول مربوطه بانك اطلاعاتي هيچ اطلاعاتي نمي بينم .

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

[baharane]

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

مرسي :قلب:
من ميخواهم اطلاعات افراد 7تا فيلد ميشه و شامل نام و نام خانوادگي و كدملي كد عضويت
و ايميل و تلفن و كد پستي است را باوارد كردن در فرم وي بي وارد جدول بانكم بشه
بازم از شما ممنونم

[M.T.P]

مراحل کار:
1. طراحی بانک (به گفته خودتون بانک رو درست کردید.)
2. ایجاد یک پروژه جدید.
3. اضافه کردن کتابخانه Microsoft Activex Data Object 2.8 از پنجره References .
4. تعریف کد زیر در فرم اصلی برای ارتباط با بانک:(همچنین اضافه کردن یک کنترل DataGrid در فرم اصلی)



Private Sub Form_Load()
Cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\LIB.mdb;" & _
"Mode=ReadWrite;" & _
"Persist Security Info=False;" & _
"Jet OLEDB:Database Password = 1"
Cn.Open
Rs.CursorLocation = adUseClient
Rs.Open "members", Cn, adOpenStatic, adLockPessimistic
Set DataGrid1.DataSource = Rs
DataGrid1.Refresh
End Sub

Private Sub Form_Unload(Cancel As Integer)
Rs.Close
Cn.Close
Set Rs = Nothing
Set Cn = Nothing
End Sub

5. تعریف کد زیر در یک ماژول:


Public Cn As New ADODB.Connection
Public Rs As New ADODB.Recordset

6. ایجاد یک فرم جدید برای وارد کردن اطلاعات در بانک (کد زیر رو میتونین برای کلید ثبت در فرم ورود اطلاعات استفاده کنید.)


Rs.AddNew
Rs("FName").Value = TxtFName.Text
Rs("LName").Value = TxtLName.Text
Rs("CodeMelli").Value = TxtCodeMelli.Text
Rs("CodeOzviat").Value = TxtCodeOzviat.Text
Rs("CodePosti").Value = TxtCodePosti.Text
Rs("Phone").Value = TxtPhone.Text
Rs("Mail").Value = TxtMail.Text
Rs.Update
خب چون من اسم فیلدهای شما رو نمیدونم اسم فیلدها و تکس باکس های ورود اطلاعات رو از خودم نوشتم شما اونها رو مطابق برنامه تون تغییر بدید.

در پایان توجه داشته باشین که هربار که اطلاعات جدید رو ثبت میکنید باید یکمرتبه DataGrid که در فرم اصلی هست رو Refresh کنید.

برو بینم چکار میکنی.
خیلی حوصله دارم نه؟؟:لبخند:

[baharane]

مرسي مهندس عزيزم
:بوس: