ja ich habe bereits ein mittelgrosses projekt mit mysql und .net gemacht. es läuft tadellos.
die zugriffe erfolgen mit Microsoft.Data.ODBC. sämtliche infos hab ich mir aus dem netz geholt. hier ein kleiner ausschnitt aus meiner klasse, die den zugriff herstellt.
- Code: Alles auswählen
Imports Microsoft.Data.Odbc
Imports System.IO
Public Class clsdata
Dim conn As New OdbcConnection() Public Sub New()
conn.ConnectionString ="DSN=mysqlODBCDSN"
If conn.State = ConnectionState.Closed Then conn.Open()
End Sub
'############Recordset aus DB###############
Public Function getUser(ByVal id As Integer) As DataTable
Dim objAdapter As New OdbcDataAdapter("SELECT * FROM users WHERE idnr=" & id, conn)
Dim dtTable As New DataTable()
objAdapter.Fill(dtTable)
Dim myrow As DataRowView = dtTable.DefaultView(0)
Return dtTable
End Function
'############INSERT/UPDATE QUERY###############
Public Function insertUpdateKontakte(ByVal insert As Boolean,
ByVal idnr As Integer, ByVal nachname As String, ByVal vorname As String, ByVal titel As String, ByVal anrede As String,
ByVal telefon As String, ByVal mobiltelefon As String, ByVal email As String, ByVal anmerkungen As String)
Dim cmd As New OdbcCommand()
Dim booltoChar As Char
cmd.Connection = conn
If insert Then
cmd.CommandText = "INSERT INTO kontakte ( nachname,vorname,titel,anrede,telefon,mobiltelefon,email, anmerkungen) VALUES (?,?,?,?,?,?,?,?) " ' SET ? = @@IDENTITY"
Else
cmd.CommandText = "UPDATE kontakte SET nachname=?,vorname=?,titel=?,anrede=?,telefon=?,mobiltelefon=?,email=?,anmerkungen=? WHERE idnr=" & idnr
End If
cmd.Parameters.Add("nachname", OdbcType.VarChar).Value = nachname
cmd.Parameters.Add("vorname", OdbcType.VarChar).Value = vorname
cmd.Parameters.Add("titel", OdbcType.VarChar).Value = titel
cmd.Parameters.Add("anrede", OdbcType.VarChar).Value = anrede
cmd.Parameters.Add("telefon", OdbcType.VarChar).Value = telefon
cmd.Parameters.Add("mobiltelefon", OdbcType.VarChar).Value = mobiltelefon
cmd.Parameters.Add("email", OdbcType.VarChar).Value = email
cmd.Parameters.Add("anmerkungen", OdbcType.VarChar).Value = anmerkungen
cmd.ExecuteNonQuery()
End Function
End Class