مشکل در ارتباط برنامه با سرور مای اس کیو ال

بپرسید

0

{{ digitTrunc(content.likes) }}

سلام یه برنامه دارم مینویسم که با یه ویندوز پزوگرامینگ بتونم به پایگاه داده مای اسکیو ال ارتباط داشته باشه ولی یخ ارور روی خط اوپین برنامه میده کانکشن استرینگ من هم به این شکله

mysqlconnection.ConnectionString = "server=mysql.xzn.ir; userid=********; password=********; database=*******

و این ارور رو میده

mysqlconnection = New MySqlConnection
        mysqlconnection.ConnectionString = "server=mysql.xzn.ir; userid=**********; password=********; database=***********"
        Try
            mysqlconnection.Open()
        Catch myerror As MySqlException
            MsgBox(myerror.ToString())
        End Try

        Dim myadapter As New MySqlDataAdapter
        Dim sqlquery = "select * from table1;"
        Dim command As New MySqlCommand
        command.Connection = mysqlconnection
        command.CommandText = sqlquery
        myadapter.SelectCommand = command
        Dim mydata As MySqlDataReader
        mydata = command.ExecuteReader
        If mydata.HasRows = 0 Then
            MsgBox("error")
        Else
            MsgBox("ok")


        End If
    End Sub

این قطعه کدی هست که برای تست اتصال نوشتم

اینم ارورش

سلام یه برنامه دارم مینویسم که با یه ویندوز پزوگرامینگ بتونم به پایگاه داده مای اسکیو ال ارتباط داشته باشه ولی یخ ارور روی خط اوپین برنامه میده کانکشن استرینگ من هم به این شکله
<php>
mysqlconnection.ConnectionString = server=mysql.xzn.ir; userid=********; password=********; database=*******
<php>

و این ارور رو میده
<php>
mysqlconnection = New MySqlConnection
        mysqlconnection.ConnectionString = server=mysql.xzn.ir; userid=**********; password=********; database=***********
        Try
            mysqlconnection.Open()
        Catch myerror As MySqlException
            MsgBox(myerror.ToString())
        End Try

        Dim myadapter As New MySqlDataAdapter
        Dim sqlquery = select * from table1;
        Dim command As New MySqlCommand
        command.Connection = mysqlconnection
        command.CommandText = sqlquery
        myadapter.SelectCommand = command
        Dim mydata As MySqlDataReader
        mydata = command.ExecuteReader
        If mydata.HasRows = 0 Then
            MsgBox(error)
        Else
            MsgBox(ok)


        End If
    End Sub

<php>
این قطعه کدی هست که برای تست اتصال نوشتم
اینم ارورش
||http://tosinso.com/files/get/a75f610d-66eb-4215-8c98-d57d16b8b623||
دوره های شبکه، برنامه نویسی، مجازی سازی، امنیت، نفوذ و ... با برترین های ایران

پاسخ ها به این سوال

پاسخ ها به این سوال

{{ digitTrunc(post.likes) }}

این پست در تاریخ {{ dateString(new Date(post.deleteDate)) }} توسط {{ post.deletedByUser }} حذف شده است.

دلیل حذف: {{ post.deleteReason ?? 'نامشخص' }}

{{ err }}
{{ post.userAchivements.rhodiumAchievements }}
{{ post.userAchivements.platinumAchievements }}
{{ post.userAchivements.goldAchievements }}
{{ post.userAchivements.silverAchievements }}
{{ post.userAchivements.bronzeAchievements }}
{{ timeSince(new Date(post.date)) }} قبل

برای ثبت پاسخ خود در وب سایت وارد حساب کاربری خود شوید
قابلیت ارسال مطلب توسط مدیریت سایت غیر فعال شده است