VB.net (aspx) connexion mysql

Question

Le code NET et VB.net derrière. J'ai une page ASP classique qui se connecte au serveur MySql avec le code suivant:

Set oConnection = Server.CreateObject("ADODB.Connection") 
Set oRecordset = Server.CreateObject("ADODB.Recordset") 

oConnection.Open "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=example.com; PORT=3306;  DATABASE=xxx; USER=xxx; PASSWORD=xxx; OPTION=3;" 
sqltemp = "select * from userinfo WHERE emailAddress = '" & theUN & "'" 
oRecordset.Open sqltemp, oConnection,3,3 

if oRecordset.EOF then 
... 

Cependant, je suis incapable de trouver quoi que ce soit pour se connecter à mySQL dans ASP.NET (VB.NET). Je n'ai trouvé ce morceau de code qui ne semble pas fonctionner une fois qu'il arrive à la « Dim conn As New OdbcConnection (MyConString) » Code:

Dim MyConString As String = "DRIVER={MySQL ODBC 3.51 Driver};" & _ 
"SERVER=example.com;" & _ 
"DATABASE=xxx;" & _ 
"UID=xxx;" & _ 
"PASSWORD=xxx;" & _ 
"OPTION=3;" 

Dim conn As New OdbcConnection(MyConString) 
conn.Open() 

Dim MyCommand As New OdbcCommand 
MyCommand.Connection = MyConnection 
MyCommand.CommandText = "select * from userinfo WHERE emailAddress = '" & theUN & "'"" 
MyCommand.ExecuteNonQuery() 
MyConnection.Close() 

Je ces déclarations d'importation aussi:

<%@ Import Namespace=System %> 
<%@ Import Namespace=System.IO %> 
<%@ Import Namespace=System.Web %> 
<%@ Import Namespace=System.ServiceProcess %> 
<%@ Import Namespace=Microsoft.Data.Odbc %> 
<%@ Import Namespace=MySql.Data.MySqlClient %> 
<%@ Import Namespace=MySql.Data %> 
<%@ Import Namespace=System.Data %> 

L'erreur est la suivante:

Message d'erreur du compilateur: BC30002: le type 'OdbcConnection' n'est pas défini.

Erreur Source:

Line 121: "OPTION=3;" 
Line 122: 
Line 123: Dim conn As New OdbcConnection(MyConString) '<--error line 
Line 124: conn.Open() 
Line 125: 

Ainsi, toute aide serait super! : O)

EDIT: AVEZ OBTENU LE TRAVAIL À L'AIDE DE CETTE FAÇON

Dim MyConString As String = "DRIVER={MySQL ODBC 3.51 Driver};" & _ 
"SERVER=example.com;" & _ 
"DATABASE=xxx;" & _ 
"UID=xxx;" & _ 
"PASSWORD=xxx;" & _ 
"OPTION=3;" 

Dim conn As OdbcConnection = New OdbcConnection(MyConString) 
conn.Open() 

Dim MyCommand As New OdbcCommand 
MyCommand.Connection = conn 
'MyCommand.CommandText = "INSERT INTO tablename VALUES("val1","val2","val3")" 
'MyCommand.ExecuteNonQuery() 
conn.Close() 

ET AVEC LA mysql.data.DLL EN JEU

Dim MyConString As String = "DRIVER={MySQL ODBC 3.51 Driver};" & _ 
    "SERVER=example.com;" & _ 
    "DATABASE=xxx;" & _ 
    "UID=xxx;" & _ 
    "PASSWORD=xxx;" & _ 
    "OPTION=3;" 

    Dim conn As New MySqlConnection(MyConString) 
    conn.Open() 

    Dim MyCommand As New MySqlCommand 
    MyCommand.Connection = conn 
    'MyCommand.CommandText = "INSERT INTO tablename VALUES("val1","val2","val3")" 
    'MyCommand.ExecuteNonQuery() 
    conn.Close() 

David

Answer 1

1) Obtenez le nouveau connecteur du MySQL site

2) De ce qu'ils vous donnent, copiez le MySql.Data.dll dans votre dossier Bin pour votre application web

3) Ajouter cette ligne à votre code-behind en haut:

Imports MySql.Data.MySqlClient 

4) Utilisation ce code, la mise à jour des parties de la chaîne de connexion en majuscules:

Using Con As New MySqlConnection("Database=DB;Server=SERVER-NAME;User Id=USERNAME;Password=PASSWORD;ignore prepare=false") 
     Con.Open() 
     Using Com As New MySqlCommand("select * from userinfo WHERE emailAddress=?emailAddress", Con) 
      Com.CommandType = Data.CommandType.Text 
      Com.Parameters.AddWithValue("?emailAddress", theUN) 
      Using RDR = Com.ExecuteReader() 
       If RDR.HasRows Then 
        Do While RDR.Read 
         'Do stuff here 
         Response.Write(RDR.Item("emailAddress").ToString()) 
        Loop 
       End If 
      End Using 
     End Using 
     Con.Close() 
    End Using 

Modifier

Le? la syntaxe est d'éviter l'injection SQL, vous pouvez concaténer à la place, aussi

Answer 2

Essayez d'ajouter:

<%@ Import Namespace=System.Data.Odbc %>