Ik heb een project gemaakt in VB2013. Daarin maak ik een string aan die een query vormt.
1) Die string moet in een Access database gesaved worden maar hoe doe ik dat?
2) Hoe moet ik een bestaande query van een Access database runnen via mijn VB programma?
Dit is een voorbeeld van mijn code:
Private Sub btn_Create_Query_Click(sender As Object, e As EventArgs) Handles btn_Create_Query.Click
Dim verbindingsString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & System.AppDomain.CurrentDomain.BaseDirectory() & "\Test.mdb"
Dim strSQL As String = "SELECT t_soorten.srt, t_soorten.soort INTO t_soort_new FROM t_soorten;"
MsgBox(strSQL)
Clipboard.Clear()
Clipboard.SetText(strSQL)
Try
Dim verbinding As New OleDb.OleDbConnection(verbindingsString)
verbinding.Open()
' Hier moeten de statements komen om in de Access database een query aan te maken
Me.Close()
MsgBox("Query aangemaakt")
Catch ex As Exception
MsgBox("FOUT: " & strSQL)
End Try
End Sub
Private Sub btn_Run_Query_Click(sender As Object, e As EventArgs) Handles btn_Run_Query.Click
'code om een bestaande query te laten runnen
End Sub