PDA

View Full Version : برنامه نویسی بانک اطلاعاتی تحت شبکه



mhmoein
جمعه 25 بهمن 1387, 11:36 صبح
با سلام خدمت دوستان عزیز
من دارم یه برنامه می نویسم که بانک اطلاعاتی اون اکسس هست حالا می خوام این برنامه رو تحت شبکه بنویسم . اساتید محترم چه روشی را به من پیشنهاد می کنن که استفاده کنم راستش من از ADODC استفاده کردم جواب هم داد اما همش طی یک فاصله زمانی خطا می ده به کاربران که بانک اطلاعاتی قفل هست باید همش روی این خطا کلیک کنن که باعث اذیت اونها می شه . عزیزان می توننن به من راهی رو پیشنهاد کنن ممنون می شم.

mormorbaba
شنبه 26 بهمن 1387, 01:08 صبح
با سلام
من از موتور Odbc Drivers استفاده مي كنم و مشكلي ندارم

ferdin
شنبه 26 بهمن 1387, 02:09 صبح
من فکر کنم مشکل از بانک اکسس هست چون اکسس تحت شبکه نیست

mhmoein
شنبه 26 بهمن 1387, 07:49 صبح
دوست عزيز مي شه دقيقا روش خودت رو در مورد استفاده از Odbc Drivers توضيح بدي ممنون مي شم.

mormorbaba
شنبه 26 بهمن 1387, 11:08 صبح
شما مي توني هم DSN درست كني و به اون با Connection String وصل شي.
در قسمت

Properties->Connection String->Use odbc data sourse name-> New ->Next->select Type Access

و Select كردن بانك Access و تمام

-------------------------------------------------------------------
و يا با استفاده از كد مي توني

مانند مثال زير عمل كني







'-------------------------------------
Public Conn1 As New ADODB.Connection
If Conn1.state = 1 Then Conn1.Close


Conn1.Open "DBQ= name&adressbank ;DefaultDir=;Driver={Microsoft Access Driver (*.mdb)};DriverId=281;FIL=MS Access;SafeTransactions=0;Threads=3;UID=admin;User CommitSync=Yes;PWD="
Conn1.CursorLocation = adUseServer
'-------------------------------------




Dim RS As New ADODB.Recordset
If RS.state = 1 Then RS.Close



RS.Open "SELECT * FROM Table Name Order by namefield", Conn1, adOpenStatic, adLockOptimistic
RS.AddNew
RS("field1") = data
RS("field2") = data
txt_sh_fact.Text = id_fi
RS.Update
RS.Close
Set RS = Nothing

mhmoein
شنبه 26 بهمن 1387, 15:07 عصر
اين نمونه خطائي هست كه مي ده !

mrm13710
چهارشنبه 04 دی 1392, 18:27 عصر
منم همین مشکلو دارم دوستان کسی می تونه خوهشا کمک کنه