ارتباط با پایگاه داده mysql به صورت ریموت

[xxhacker]

سلام من یک برنامه توسط vb6 نوشتم و یک الگوریتم خاص دارم برای پیدا کردن سریال هر کامپیوتر که این سریال مختص هر کامیوتر می باشد و سریال هر کامپیوتر با دیگری متفاوت است. یک هاست لینوکس دارم که دارای دیتابیس Mysql می باشد حال می خواهم شرطی در ابتدای برنامم بزارم که برای باز شدن ابتدا دیتابیس mysql موجود روی هاستم را چک کند سپس اگر سریال اون کامپیوتر در دیتابیس موجود بود برنامه باز شود

این توضیحات را دادم تا هدفم را کامل متوجه شوید من فقط آن قسمت نحوه ارتباط vb6 و دیتابیس mysql بر روی شبکه اینترنت را می خواهم بدانم. بسیار ممنون میشم بگین آیا sql server هم مشابه mysql است و یا تفاوت دارد اگر هست که لطف کنید نحوه جستجو در آن را هم آموزش دهید اگر هم نیست لطف کنید نحوه ارتباط vb6 با دیتابیس mysql بر روی شبکه اینترنت را آمورش دهید

[lord_viper]

معمولا بانک sqlserver رو به مدیر هاست میدین براتون Atach میکنه و ConnectionString که برای ارتباط لازمه رو به شما میده + user و pass بانک تا شما بتونین بهش کانکت بشین

[xxhacker]

با سلام من جواب سوالم را نگرفتم من نحوه ارتباط vb و mysql رو روی شبکه اینترنت می خواهم بدانم با توجه به مطالبی که گفتم لطف کنید راهنمایی کنید. نوع دیتا بیس دیگری مد نظر من نیست که شما sql server را پیشنهاد کردید

در هر صورت ممنون از پاسختون

[lord_viper]

بسیار ممنون میشم بگین آیا sql server هم مشابه mysql است و یا تفاوت دارد اگر هست که لطف کنید نحوه جستجو در آن را هم آموزش دهید اگر هم نیست لطف کنید نحوه ارتباط vb6 با دیتابیس mysql بر روی شبکه اینترنت را آمورش دهید

نوع دیتا بیس دیگری مد نظر من نیست که شما sql server را پیشنهاد کردید

مهندس خودت به پستات نگاه کن

شما برای اتصال به هر بانکی روی اینترنت باید ConnectionString مورد نظر رو داشته باشی+ User و pass بانک رو بدون اونها نمی تونی به بانک وصل بشی

هر بانکی برای ایجاد ارتباط درایورهای مخصوص به خودش رو داره که توسط کامپوننت یا کامپوننتهایی پیاده سازی میشه مثلا ADO برای کار با Sqlserver و MsAccess هست

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

[xxhacker]

سلام عزیز من connectionstring ارتباط با mysql را دارم و روی لوکال هم به راحتی کانکت میشم من نحوه ارتباط با دیتابیس mysql بر روی شبکه اینترنت را پرسیدم.(دستور جستجو در دیتابیس , حذف , ادد) اینو می خواستم بدونم عزیز

[lord_viper]

هر بانکی برای ایجاد ارتباط درایورهای مخصوص به خودش رو داره که توسط کامپوننت یا کامپوننتهایی پیاده سازی میشه مثلا ADO برای کار با Sqlserver و MsAccess هست

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

من نحوه ارتباط با دیتابیس mysql بر روی شبکه اینترنت را پرسیدم.(دستور جستجو در دیتابیس , حذف , ادد) اینو می خواستم بدونم عزیز

برای ارتباط میتونین از OLEDB connector یا MySQL Connectorاستفاده کنید

برای تنظیم connectionString میتونین از سایت زیر کمک بگیرید

کد:

http://connectionstrings.com/?carrier=mysql

این هم یک کد مثال

کد:

Dim strDataBaseName As String
Dim strDBCursorType As String
Dim strDBLockType As String
Dim strDBOptions As String
Dim rs As ADODB.Recordset
Dim cn As ADODB.Connection

Private Sub Command1_Click()
On Error GoTo Command1_Click_Error
Dim b as Long
strDBCursorType = adOpenDynamic  'CursorType
strDBLockType = adLockOptimistic   'LockType
strDBOptions = adCmdText         'Options

Set cn = New ADODB.Connection
Me.MousePointer = 11

cn.Open ConnectString()
    
    With cn
        .CommandTimeout = 0
        .CursorLocation = adUseClient
    End With

    Set rs = New ADODB.Recordset       'Creates record set

    strSQL = "select * from tablename"
    
    rs.Open strSQL, cn, strDBCursorType, strDBLockType, strDBOptions
    

if rs.Eof then
   Goto ExitSub    
else
    For b = 1 To rs.RecordCount
    '<do whatever you need to do with the data here>
    Next b
end if
    
ExitSub:

rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing

On Error GoTo 0
Exit Sub

Command1_Click_Error:
    MsgBox "Error " & Err.Number & " (" & Err.Description & ")  & _
                     in procedure Command1_Click of Form " & Me.Name
End Sub

Private Function ConnectString() As String
Dim strServerName as String
Dim strDatabaseName as string
Dim strUserName as string
Dim strPassword as string

    'Change to IP Address if not on local machine
    'Make sure that you give permission to log into the
    'server from this address
    'See Adding New User Accounts to MySQL
    'Make sure that you d/l and install the MySQL Connector/ODBC 3.51 Driver

strServerName = "localhost"
strDatabaseName = "DatabaseName"
strUserName = "UserName"
strPassword ="Password"

ConnectString = "DRIVER={MySQL ODBC 3.51 Driver};" & _
                "SERVER=" & strServerName & _
                ";DATABASE=" & strDatabaseName & ";" & _
                "USER=" & strUserName & _
                ";PASSWORD=" & strPassword  & _
                ";OPTION=3;"

End Function

شما باید از دستورات Sql استفاده کنید

[xxhacker]

بسیار بسیار ممنونم من به راحتی توسط mysql connector به دیتابیس روی لوکال کانکت شدم حال مشکل اینجاست چطور به دیتابیس روی نت کانکت شم ظاهرا باید پورت باشد که 3306 می باشد پورت اما کانک نمیشود

[lolohacko]

سلام دوست من.
این کاری که شما میخواهید بکنید باعث میشه هم پسورد دیتابیستون از توی برنامتون بدست کرکر بیفته و هم خیلی راحت کرک بشه.
به نظر من یه اسکریپت با php بنویس که سریال رو براش ارسال کنی و یه مقدار برگردونه که آیا این سریال توی دیتابیس وجود داشته یا خیر.این کار باعث میشه پسورد دیتابیستون فاش نشه ولی برنامتون راحت کرک بشه چون در آخر یه دستور شرطی توی برنامه باید قرار بدید.
در کل روش بدست آوردن سریال سخت افزار و .... روش خوبی برای جلوگیری از کرک شدن برنامه نیست.

[joker]

بسیار بسیار ممنونم من به راحتی توسط mysql connector به دیتابیس روی لوکال کانکت شدم حال مشکل اینجاست چطور به دیتابیس روی نت کانکت شم ظاهرا باید پورت باشد که 3306 می باشد پورت اما کانک نمیشود

اول یک تلنت ساده به آدرس اون سایت روی پورت 3306 بکن ببین بازه برای رنج خارج از سرور ش یا نه.

[xxhacker]

عزیز نشد!! حالا چیکار کنم؟