تبلیغات
تبلیغات متنی
آموزشگاه آرایشگری مردانه شفیع رسالت
دکتر علی پرند فوق تخصص جراحی پلاستیک
بهترین دکتر پروتز سینه در تهران
محبوبترینها
راهنمای انتخاب شرکت‌های معتبر باربری برای حمل مایعات در ایران
چگونه اینورتر های صنعتی را عیب یابی و تعمیر کنیم؟
جاهای دیدنی قشم در شب که نباید از دست بدهید
سیگنال سهام چیست؟ مزایا و معایب استفاده از سیگنال خرید و فروش سهم
کاغذ دیواری از کجا بخرم؟ راهنمای جامع خرید کاغذ دیواری با کیفیت و قیمت مناسب
بهترین ماساژورهای برقی برای دیسک کمر در بازار ایران
بهترین ماساژورهای برقی برای دیسک کمر در بازار ایران
آفریقای جنوبی چگونه کشوری است؟
بهترین فروشگاه اینترنتی خرید کتاب زبان آلمانی: پیک زبان
با این روش ساده، فروش خود را چند برابر کنید (تست‌شده و 100٪ عملی)
خصوصیات نگین و سنگ های قیمتی از نگاه اسلام
صفحه اول
آرشیو مطالب
ورود/عضویت
هواشناسی
قیمت طلا سکه و ارز
قیمت خودرو
مطالب در سایت شما
تبادل لینک
ارتباط با ما
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
آمار وبسایت
تعداد کل بازدیدها :
1867173489
ارتباط VB با mySql از طريق نت -
واضح آرشیو وب فارسی:سایت ریسک: ارتباط VB با mySql از طريق نت Babak-Magic 31 ارديبهشت 1389, 12:01سلام من یک برنامه توسط vb 6 نوشتم و یک الگوریتم خاص دارم برای پیدا کردن سریال هر کامپیوتر که این سریال مختص هر کامیوتر می باشد و سریال هر کامپیوتر با دیگری متفاوت است. یک هاست لینوکس دارم که دارای دیتابیس Mysql می باشد حال می خواهم شرطی در ابتدای برنامم بزارم که برای باز شدن ابتدا دیتابیس mysql موجود روی هاستم را چک کند سپس اگر سریال اون کامپیوتر در دیتابیس موجود بود برنامه باز شود این توضیحات را دادم تا هدفم را کامل متوجه شوید من فقط آن قسمت نحوه ارتباط vb 6 و دیتابیس mysql بر روی شبکه اینترنت را می خواهم بدانم. بسیار ممنون میشم بگین آیا sql server هم مشابه mysql است و یا تفاوت دارد اگر هست که لطف کنید نحوه جستجو در آن را هم آموزش دهید اگر هم نیست لطف کنید نحوه ارتباط vb 6 با دیتابیس mysql بر روی شبکه اینترنت را آمورش دهید the_king 31 ارديبهشت 1389, 22:17سلام من یک برنامه توسط vb 6 نوشتم و یک الگوریتم خاص دارم برای پیدا کردن سریال هر کامپیوتر که این سریال مختص هر کامیوتر می باشد و سریال هر کامپیوتر با دیگری متفاوت است. یک هاست لینوکس دارم که دارای دیتابیس Mysql می باشد حال می خواهم شرطی در ابتدای برنامم بزارم که برای باز شدن ابتدا دیتابیس mysql موجود روی هاستم را چک کند سپس اگر سریال اون کامپیوتر در دیتابیس موجود بود برنامه باز شود این توضیحات را دادم تا هدفم را کامل متوجه شوید من فقط آن قسمت نحوه ارتباط vb 6 و دیتابیس mysql بر روی شبکه اینترنت را می خواهم بدانم. بسیار ممنون میشم بگین آیا sql server هم مشابه mysql است و یا تفاوت دارد اگر هست که لطف کنید نحوه جستجو در آن را هم آموزش دهید اگر هم نیست لطف کنید نحوه ارتباط vb 6 با دیتابیس mysql بر روی شبکه اینترنت را آمورش دهید SQL Server و MySQL با هم تفاوت های زیادی دارند، اما ارتباط ویژوال بیسیک با هر دوی آنها بطور یکسان و از طریق Microsoft Remote Data Object که به اختصار RDO خوانده می شود صورت می پذیرد. ابتدا درایور MySQL ODBC را از سایت mysql.com داونلود کنید که بدون آن RDO نمی تواند با MySQL ارتباطی برقرار کند. Download Connector - ODBC () همچنین در تنظیمات MySQL بایستی Username و Password ای را تعریف کنید که اجازه دسترسی به بانک اطلاعاتی را بدهد، برای اینکار گویا از دستور grant استفاده می شود. در منوی Project ویژوال بیسیک گزینه References را انتخاب کرده و در لیست ای که نمایش داده می شود، Microsoft Remote Data Object را پیدا کرده و تیک بزنید و OK نمایید. در کد زیر YourUserName نام کاربری و YourPassword رمز عبور و YourServerName آدرس سرور و YourDataBase نام بانک اطلاعاتی خواهد بود. در بین حلقه Do Loop رکورد ها را می توانید بخوانید. کد زیر نمونه ای از خواندن رکورد های یک جدول user است. Dim cnMySql As New rdoConnection Dim rdoQry As New rdoQuery Dim rdoRS As rdoResultset cnMySql.CursorDriver = rdUseOdbc cnMySql.Connect = "uid=YourUserName;pwd=YourPassword;server=YourServe rName;driver={MySQL ODBC 3.51 Driver};database=YourDataBase;dsn=;" cnMySql.EstablishConnection With rdoQry .Name = "selectUsers" .SQL = "select * from user" .RowsetSize = 1 Set .ActiveConnection = cnMySql Set rdoRS = .OpenResultset(rdOpenKeyset, rdConcurRowVer) End With Do Until rdoRS.EOF With rdoRS . . . rdoRS.MoveNext End With Loop rdoRS.Close cnMySql.Close سایت ما را در گوگل محبوب کنید با کلیک روی دکمه ای که در سمت چپ این منو با عنوان +1 قرار داده شده شما به این سایت مهر تأیید میزنید و به دوستانتان در صفحه جستجوی گوگل دیدن این سایت را پیشنهاد میکنید که این امر خود باعث افزایش رتبه سایت در گوگل میشود
این صفحه را در گوگل محبوب کنید
[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 2115]
-
گوناگون
پربازدیدترینها