TAHA
11-26-2009, 11:58 PM
ارتباط MySQL و Visual basic 6 در کامپیوتر Local
معرفی MySQL
MySQL تحت مجوز GPL به صورت رایگان و Open Source ارائه شده است و داراي API هايي براي زبان هاي C، ++C، Java، Perl، PHP و Python مي باشد. به علاوه مايكروسافت، پرووايدرهاي OLEDB و ODBC را نيز در جهت برقراري ارتباط با داده هاي MySQL در ويندوز ارائه مي كند.
با معرفي NET. به دنياي برنامه نويسي، MySQL.NET نيز به وجود آمد كه به MySQL اجازه برقراري ارتباط با محيط NET. را بدون نياز به OLEDB مي دهد.
MySQL قابلیت آن را دارد كه همزمان به چندین كاربر اجازه كار با سرعت زیاد دهد. همچنین قادر است به كاربران مجاز و یا غیر مجاز اجازه استفاده از منابع متفاوت را ارئه دهد .
MySQL زبان استاندارد جهانی بانكهای اطلاعاتی ( SQL ( Structured Query Language را به كار می گیرد. در اینجا می خواهم طریقه ارتباط MySQL وVisual basic 6 را در کامپیوتر Local بوسیله پرووايدر ODBC شرح دهم
نصب بانک اطلاعاتی MySQL
1- برای دریافت جدیدترین نسخه MySQL به آدرس زیر مراجعه کنید:
MySQL :: MySQL Downloads (http://dev.mysql.com/downloads)
2- نصب آن به سادگی نصب دیگر نرم افزارها انجام می شود و نیاز به توضیح اضافی ندارد .
ایجاد دیتابیس و جدول در MySQL :
پس از اينكه MySQl را نصب كرديد اكنون به كمك يك ابزارهاي ويژوال مثل MySQL Administrator و MySQL Workbench و ... ديتابيس و جدول خود در پايگاه داده ايجاد كنيد .
نصب MyODBC Driver :
MyODBC Driver در واقع پرووايدر و راه اندازي است كه براي ارتباط VB وMysql احتياج داريم ، شما می توانید آخرین نسخه را از آدرس زیر دریافت کنید :
MySQL :: MySQL Connector/ODBC 5.1 (http://dev.mysql.com/downloads/connector/odbc)
چنانچه از myODBC نسخه 3.51 استفاده می کنید توجه داشته باشید که این نسخه دارایbug است و باعث می شود ارتباط با وی بی بدرستی انجام نشود ، برای رفع این مشکل باید فایل Patch آنرا از مسیر زیر دریافت کنید :
ftp://ftp.mysql.com/pub/MySQL/downlo...0-2-patch3.zip (ftp://ftp.mysql.com/pub/MySQL/download/MyODBC-3.51.10-2-patch3.zip)
پیشنهاد می شود از کانکتور mysql-connector-odbc-3.51.12-win.msi استفاده کنید تا این مشکل را نداشته باشید .
ايجاد يك MyODBC DSN روی ویندوز :
DSN=Data Source Name
برای اضافه کردن و پیکر بندی یک منبع داده جدید روی ویندوز ، می باید از ODBC Data Source Administrator استفاده کنید در واقع این ODBC Administrator اطلاعات کانکشن منبع داده شما را بروزرسانی می کند .
برای باز کردن ODBC Administrator وارد منوی Start شده سپس Control Panel وبعد Administrative Tools و در نهایت هم (Data Sources (ODBC را دو بار کلیک کنید .
پنجره ODBC Data Source Administrator مطابق شکل زیر ظاهر می شود :
http://pnu-club.com/imported/mising.jpg
مراحل اضافه کردن یک منبع داده
1-ODBC Data Source Administrator را باز کنید .
2-در پنجره ODBC Data Source Administrator روی دکمهAdd کلیک کنید ، پنجره جدیدی با نام Create New Data Source ظاهر می شود .
3-MySQL ODBC 3.51 Driver را انتخاب و سپس دکمه Finish را کلیک کنید پنجره دیگر به نام Connector/ODBC - Add Data Source Name باز می شود .
اكنون در اين پنجره مراحل زير را انجام دهيد :
1- در فيلد Data Source Name نام منبع داده خود را وارد كنيد( اين نام مي تواند هر چيزي باشد )
2- در فيلد Server بايد آي پي محلي كه Mysql قرار دارد را وارد نماييد شما در اين فيلد آي پي 127.0.0.1 را وارد كنيد .
3-اگر براي بانك يوزر و پسورد تعريف كرده ايد آنها را در فيلدهاي User و Password بنويسيد در غير اينصورت فقط كافي است در فيلد User عبارت root را وارد كنيد .
4- نام ديتابيس خود در فيلد Database وارد كنيد .
http://pnu-club.com/imported/mising.jpg
دكمه OK را كليك كنيد تا اين منبع داده اضافه شود .
ايجاد پروژه ويژوال بيسيك :
اکنون در محیط ویژوال بیسیک یک پروژه جدید از نوع Statndard EXE ایجاد کنید .
از پنجره Refernces (واقع در منوی Project) کتابخانه Microsoft ActiveX Data Objects 2.8 را به پروژه خود اضافه کنید .
یک dataGrid ، یک دکمه به نام CmdLocalConnect وپنج Text Box به نامهای TxtIP ،TxtDatbase ، Txttable ، TxtUserID ، Txtpsw روی فرم بگذارید .
اکنون دستورات زیر را برای فرم خود Copy و Paste کنید :
Public db As New ADODB.Connection
Public rec As New ADODB.Recordset
Private Sub CmdLocalConnect_Click()
db.CursorLocation = adUseClient
db.Open "DRIVER=MySQL ODBC 3.51 Driver;SERVER=" & TxtIP.Text & "; DATABASE=" & TxtDatbase.Text & ";UID=" & TxtUserID.Text & ";PWD=" & Txtpsw.Text & ";" & "OPTION=1 + 2 + 8 + 32 + 2048 + 163841;"
rec.Open "select * from " & Txttable, db, adOpenKeyset, adLockPessimistic
Set DataGrid1.DataSource = rec
End Sub
برنامه را اجرا کنید
در TxtIP عبارت Localhost و یا آی پی 127.0.0.1 و يا نام كامپيوتر ، در TxtDatbase نام دیتابیس ، در Txttable نام جدول ، در TxtUserID نام کاربر تعریف شده برای دیتابیس و در Txtpsw هم رمز عبور را وارد کنید .
معرفی MySQL
MySQL تحت مجوز GPL به صورت رایگان و Open Source ارائه شده است و داراي API هايي براي زبان هاي C، ++C، Java، Perl، PHP و Python مي باشد. به علاوه مايكروسافت، پرووايدرهاي OLEDB و ODBC را نيز در جهت برقراري ارتباط با داده هاي MySQL در ويندوز ارائه مي كند.
با معرفي NET. به دنياي برنامه نويسي، MySQL.NET نيز به وجود آمد كه به MySQL اجازه برقراري ارتباط با محيط NET. را بدون نياز به OLEDB مي دهد.
MySQL قابلیت آن را دارد كه همزمان به چندین كاربر اجازه كار با سرعت زیاد دهد. همچنین قادر است به كاربران مجاز و یا غیر مجاز اجازه استفاده از منابع متفاوت را ارئه دهد .
MySQL زبان استاندارد جهانی بانكهای اطلاعاتی ( SQL ( Structured Query Language را به كار می گیرد. در اینجا می خواهم طریقه ارتباط MySQL وVisual basic 6 را در کامپیوتر Local بوسیله پرووايدر ODBC شرح دهم
نصب بانک اطلاعاتی MySQL
1- برای دریافت جدیدترین نسخه MySQL به آدرس زیر مراجعه کنید:
MySQL :: MySQL Downloads (http://dev.mysql.com/downloads)
2- نصب آن به سادگی نصب دیگر نرم افزارها انجام می شود و نیاز به توضیح اضافی ندارد .
ایجاد دیتابیس و جدول در MySQL :
پس از اينكه MySQl را نصب كرديد اكنون به كمك يك ابزارهاي ويژوال مثل MySQL Administrator و MySQL Workbench و ... ديتابيس و جدول خود در پايگاه داده ايجاد كنيد .
نصب MyODBC Driver :
MyODBC Driver در واقع پرووايدر و راه اندازي است كه براي ارتباط VB وMysql احتياج داريم ، شما می توانید آخرین نسخه را از آدرس زیر دریافت کنید :
MySQL :: MySQL Connector/ODBC 5.1 (http://dev.mysql.com/downloads/connector/odbc)
چنانچه از myODBC نسخه 3.51 استفاده می کنید توجه داشته باشید که این نسخه دارایbug است و باعث می شود ارتباط با وی بی بدرستی انجام نشود ، برای رفع این مشکل باید فایل Patch آنرا از مسیر زیر دریافت کنید :
ftp://ftp.mysql.com/pub/MySQL/downlo...0-2-patch3.zip (ftp://ftp.mysql.com/pub/MySQL/download/MyODBC-3.51.10-2-patch3.zip)
پیشنهاد می شود از کانکتور mysql-connector-odbc-3.51.12-win.msi استفاده کنید تا این مشکل را نداشته باشید .
ايجاد يك MyODBC DSN روی ویندوز :
DSN=Data Source Name
برای اضافه کردن و پیکر بندی یک منبع داده جدید روی ویندوز ، می باید از ODBC Data Source Administrator استفاده کنید در واقع این ODBC Administrator اطلاعات کانکشن منبع داده شما را بروزرسانی می کند .
برای باز کردن ODBC Administrator وارد منوی Start شده سپس Control Panel وبعد Administrative Tools و در نهایت هم (Data Sources (ODBC را دو بار کلیک کنید .
پنجره ODBC Data Source Administrator مطابق شکل زیر ظاهر می شود :
http://pnu-club.com/imported/mising.jpg
مراحل اضافه کردن یک منبع داده
1-ODBC Data Source Administrator را باز کنید .
2-در پنجره ODBC Data Source Administrator روی دکمهAdd کلیک کنید ، پنجره جدیدی با نام Create New Data Source ظاهر می شود .
3-MySQL ODBC 3.51 Driver را انتخاب و سپس دکمه Finish را کلیک کنید پنجره دیگر به نام Connector/ODBC - Add Data Source Name باز می شود .
اكنون در اين پنجره مراحل زير را انجام دهيد :
1- در فيلد Data Source Name نام منبع داده خود را وارد كنيد( اين نام مي تواند هر چيزي باشد )
2- در فيلد Server بايد آي پي محلي كه Mysql قرار دارد را وارد نماييد شما در اين فيلد آي پي 127.0.0.1 را وارد كنيد .
3-اگر براي بانك يوزر و پسورد تعريف كرده ايد آنها را در فيلدهاي User و Password بنويسيد در غير اينصورت فقط كافي است در فيلد User عبارت root را وارد كنيد .
4- نام ديتابيس خود در فيلد Database وارد كنيد .
http://pnu-club.com/imported/mising.jpg
دكمه OK را كليك كنيد تا اين منبع داده اضافه شود .
ايجاد پروژه ويژوال بيسيك :
اکنون در محیط ویژوال بیسیک یک پروژه جدید از نوع Statndard EXE ایجاد کنید .
از پنجره Refernces (واقع در منوی Project) کتابخانه Microsoft ActiveX Data Objects 2.8 را به پروژه خود اضافه کنید .
یک dataGrid ، یک دکمه به نام CmdLocalConnect وپنج Text Box به نامهای TxtIP ،TxtDatbase ، Txttable ، TxtUserID ، Txtpsw روی فرم بگذارید .
اکنون دستورات زیر را برای فرم خود Copy و Paste کنید :
Public db As New ADODB.Connection
Public rec As New ADODB.Recordset
Private Sub CmdLocalConnect_Click()
db.CursorLocation = adUseClient
db.Open "DRIVER=MySQL ODBC 3.51 Driver;SERVER=" & TxtIP.Text & "; DATABASE=" & TxtDatbase.Text & ";UID=" & TxtUserID.Text & ";PWD=" & Txtpsw.Text & ";" & "OPTION=1 + 2 + 8 + 32 + 2048 + 163841;"
rec.Open "select * from " & Txttable, db, adOpenKeyset, adLockPessimistic
Set DataGrid1.DataSource = rec
End Sub
برنامه را اجرا کنید
در TxtIP عبارت Localhost و یا آی پی 127.0.0.1 و يا نام كامپيوتر ، در TxtDatbase نام دیتابیس ، در Txttable نام جدول ، در TxtUserID نام کاربر تعریف شده برای دیتابیس و در Txtpsw هم رمز عبور را وارد کنید .