vbsnoobdlu
Goto Top

MySql nach vb.net

Hi, ich weiss das Thema gibt es schon, muss es aber nochmal aufmachen da die anderen i-wie nicht helfen ...

Also fange einfach mal an:

habe vb.net 2008 Express installiert -> c:\Programme\...
Dann habe ich einen mySql Server essential 5.0 installiert -> z:\Programme\MySql
dazu habe ich den C:\Programme\MySQL\MySQL Connector Net 5.2.5\Binaries\.NET 2.0 drauf... dort ist auch die mysql.data.dll drin

nun habe ich in vb in der Projekt mappe rechtklick gemacht und Verweis hinzufügen gedrückt ... dort die dll ausgewählt und ok ...
sie steht nun unter Aktuell sowie .net drin.

mein Quellcode beinhaltet nicht viel ausser:

Imports MySql.Data.MySqlClient
Imports MySql.Data.Types
Imports System.Data.SqlClient


Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
On Error GoTo err_hallo
Dim MyConnectionString As String


MyConnectionString = "Database=kurtz;Data Source=localhost;User Id=user;Password=user"
Dim MyConnection As New mysqlConnection(MyConnectionString) <- er sagt MySQLConnection ist nicht eindeutig ... was sagt mir das ?


If Me.tbText.Text = "" Then
Me.tbText.Text = "Hallo"

MyConnection.Open()


MyConnection.Close()


Else
Me.tbText.Text = ""
End If

err_hallo:
MsgBox(Err.Description)


End Sub
End Class

Content-Key: 105952

Url: https://administrator.de/contentid/105952

Ausgedruckt am: 29.03.2024 um 07:03 Uhr

Mitglied: VBSnoobDlu
VBSnoobDlu 14.01.2009 um 00:38:09 Uhr
Goto Top
Ok habe es hin bekommen es war ein Verweis ... der noch im Konflikt steht ...

so nun noch ein Frage,
habe ein objReader dort lade ich das ergebnis einer Abfrage rein,
wie bekomme ich das Ergebniss in ein ListenView ?

Nach diesem schema.

ID Lieferant Adresse Ort
1 Ich 123 900
2 du 456 900
3 wir 789 900

QuellCode:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' On Error GoTo err_hallo
Dim MyConnectionString As String
Dim Command As MySqlCommand
Dim objReader As MySqlDataReader
MyConnectionString = "Database=kurtz;Data Source=localhost;User Id=user;Password=user"
'Dim MyConnection As New MySqlConnection(MyConnectionString)
Dim strSQL As String = "SELECT * FROM 010Tablie"
Dim strResult As String = ""
'Dim fields()


If Me.tbText.Text = "" Then
Me.tbText.Text = "Hallo"
Dim MyConnection As New MySqlConnection(MyConnectionString)
MyConnection.Open()
Command = New MySqlCommand(strSQL, MyConnection)
objReader = Command.ExecuteReader

While (objReader.Read())
Dim fields As String
fields = objReader!LieferantenID.ToString, objReader!LieferantenID.ToString()
Dim item = New ListViewItem()
LV1Test.Items.Add(item)
End While


MyConnection.Close()


Else
Me.tbText.Text = ""
End If


End Sub


Muss i-wo einen Denkfehler haben
Danke für die Antworten ^^

gruß
Daniel