Hallo an Alle,
Ich bin Anfänger mit die VB Programmierung. Ich bin im Moment mit der "Galileo OpenBook : Einstieg in Visual Basic 2012" beschäftigt, und probiere ein paar Beispiele zu folgen. Zum Beispiel möchte ich gern ein DataGridView mit ein sdf Datei zu ergänzen, steht leider nicht im Book, und nach 1 Tag Internet Suche und x verschiedene Möglichkeiten, frage ich euch nach.
Der "sdf" Datei ist erstellt mit "Hinzufügen --> Neues Element... --> Lokaler Datenbank --> DataSet
Datenbank Name testdb-local1 (Tabelle Name: Tabelle-TestDB)
SDF Name : testdb-local1.sdf
In diese Tabelle habe ich 4 Spalte ID, NAME, CATEGORIE, PRIO
Leider geht es nicht. Kann mir da Jemand helfen der Code zu korrigieren?
Vielen Dank
Davy
PS: Sorry für die Schreibfehler, bin nicht vom diese Land
Ich bin Anfänger mit die VB Programmierung. Ich bin im Moment mit der "Galileo OpenBook : Einstieg in Visual Basic 2012" beschäftigt, und probiere ein paar Beispiele zu folgen. Zum Beispiel möchte ich gern ein DataGridView mit ein sdf Datei zu ergänzen, steht leider nicht im Book, und nach 1 Tag Internet Suche und x verschiedene Möglichkeiten, frage ich euch nach.
Der "sdf" Datei ist erstellt mit "Hinzufügen --> Neues Element... --> Lokaler Datenbank --> DataSet
Datenbank Name testdb-local1 (Tabelle Name: Tabelle-TestDB)
SDF Name : testdb-local1.sdf
In diese Tabelle habe ich 4 Spalte ID, NAME, CATEGORIE, PRIO
VB.NET-Quellcode
- Imports System.Data.SqlServerCe
- Public Class Form1
- Public sqlceCon As New SqlCeConnection
- Public cmd As New SqlCeCommand
- Public dr As SqlCeDataReader
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- sqlceCon = New SqlCeConnection("Data Source=testdb-local1.sdf")
- Try
- sqlceCon.Open()MsgBox("Connexion reussi")
- Catch ex As Exception
- MsgBox(ex.ToString)
- End Try
- Collection()
- End Sub
- Private Sub Collection()
- Dim ds As New DataSet
- Dim dt As New DataTable
- Dim strSql As String = "SELECT ID, NAME, CAT, PRIO FROM Tabelle-TestDB"
- Dim adp As New SqlCeDataAdapter(strSql, sqlceCon)
- ds.Tables.Add("TableTodo")
- adp.Fill(ds.Tables("TableTodo"))
- Me.DataGridView1.DataSource = ds.Tables("TableTodo")
- End Sub
- End Class
Leider geht es nicht. Kann mir da Jemand helfen der Code zu korrigieren?
Vielen Dank
Davy
PS: Sorry für die Schreibfehler, bin nicht vom diese Land