تحت شبکه کردن برنامه

[alizanganeh]

سلام
من میخوام برنامم که به بانک SQL Server 2000 وصله رو تحت شبکه کنم و برای اتصال از کد استفاده کردم

این کد در General برای ایجاد کانکشن و نشانگر یا Recordset

Dim db As New Connection ایجاد کانکشن
Dim rs1 As New Recordset ایجاد ریکوردست


و این کد ها رو در فرم لود برای اتصال به باک مینویسم


db.Open "provider=msdasql;driver={sql server};server=;id=;pwd=;database=taranom"
rs1.CursorLocation = adUseClient
rs1.Open "select * from Login", db, adOpenDynamic, adLockOptimistic


Taranom = نام بانک
Login = نام جدول



خب این الان کار میکنه
ولی وقتی میخوام تحت شبکه کنم برنامه رو باید در مقابل Server نام کامپیوتری که یانک توش هست رو بنویسم و در قسمت ID و pwd هم نام کاربری و رمز عبوری که در بوزر های SQL ساختم ر و باید بنویسم

مشکل من الان اینه که وقتی نام کامپیوتر رو میدم ، اون سیستم رو از توی شبکه پیدا میکنه ولی نمیتونه بهش وصل بشه و این ارور رو میده :

http://www.up.vatandownload.com/images2/o65vtnmb5kt7ag7ztrk.jpg


من تنظیمات توی سیستمی که بانک توشه رو هم انجام دادم و تنظیمات امنیتی سرور رو روی این حالت هم گذاشتم

http://www.up.vatandownload.com/images2/wmkwacr9wrflizw9lwuz.jpg


ولی بازم اون ارور رو میده

و مطمئنم که سیستم مورد نظر رو پیدا کرده چون وقتی بجای Server نام کامپیوتری رو مینویسم که اصلا وجود نداره ، این ارور رو میده :

http://www.up.vatandownload.com/images2/8s14o4ufvnopdd3r5qso.jpg



چه کنم؟
خیلی فوریه

ممنون میشم جواب بدید

تشکر:قلب:

[mohsen_iceman2000]

سلام این که کاری نداره این پیغام واسه تنظیمات Security سرورته باید چند تا کارو انجام بدی تا این مشکل حل بشه
1- برو تو EnterPrise MAnager
2-برو تو Security
3-برو تو Login
4- روی Login کلیک راست کن و New Login رو انتخاب کن
5- نام کاربر اون کامپیوتر رو تو Name بنویس
6- نام کامپیوتر رو بعد تو Domain بنویس
7 - اون پایین نام بانکتو انتخاب کن
8= تو tab دوم System Securitty , System Administrators رو انتخاب کن
در tab سوم نام Database خودتو تیک بزن و اوکی کن

مشکلت حل میشه

[alizanganeh]

ممنون محسن جان
اینا رو انجام دادم
ولی اون کدی که برای اتصال به بانک در فرم لود مینویسم رو چطوری باید تغییر بدم؟
ینی برای server , id و pwd چی باید بنویسم ؟

ممنونم ازت

[mohsen_iceman2000]

سلام

db.Open "provider=msdasql;driver={sql server};server=(local);id=sa;pwd=1;database=tarano m"
rs1.CursorLocation = adUseClient
rs1.Open "select * from Login", db, adOpenDynamic, adLockOptimistic

[alizanganeh]

محسن جان خیلی ممنون
ولی بازم نشد
اون کارا رو انجام دادم
این کدی هم که گفتی نوشتم
ولی وقتی برای سرور مینویسم (local) این ارور رو میده بازم :

http://www.up.vatandownload.com/images2/8s14o4ufvnopdd3r5qso.jpg

و وقتی نام اون کامپیوتر رو مینویسم بازم این ارور رو میده :

http://www.up.vatandownload.com/images2/o65vtnmb5kt7ag7ztrk.jpg


و من سوالم اینه که ما که میریم و یک یوزر میسازیم ، پس چرا باز توی کدی که دادی بجای id و pwd همچنان نام و رمز یوزر sa رو مینویسیم

خداییش کلافه شدم دیگه

ممنون

[محسن واژدی]

سلام علیکم
متاسفانه به sql-server دسترسی ندارم تست کنم

در مورد خطای اول تا جایی که بنده اطلاع دارم اگه برنامه sql-server اجرا نباشه یا pause/stop شده باشه این خطا رو میده (بررسی کنید، چون هنوز مطمئن نیستم)

موفق باشید

[mohsen_iceman2000]

این آی دیمو اد کن تا بهت بگم چی کار کنی
mohsen_iceman2000

ِیاهو