J'ai créé une petite application permettant d'enregistrer des informations dans une base de données libre office.
J'arrive à écrire dans ma base de données, à modifier et à supprimer des informations sans problème.
Mon seul soucis et de pouvoir afficher les informations de la base de données dans un dataset (datagridview).
J'avais déja réalisé ce travail avec une base de données sqlserver mais je ne trouve pas sur le net les informations suffisantes sur les bases libreOffice.
J'essaye dans un premier temps de lire une donnée dans un msgbox et je bloque déja sur ce point, ensuite la finalité serait la visualisation des données dans le datagridview !
Voici le code complet :
Code : Tout sélectionner
Imports System.IO
Imports System.Data.OleDb
Imports System.Data.SqlClient
Imports System.Xml
Public Class Form3
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim ChoixEnqueteur As String
ChoixEnqueteur = ComboBox1.Text
Try
Dim oDB As Object, oBase As Object
Dim oStatement As Object
Dim strSQL As String, Fichier As String
Dim oRequete As Object
Dim oServiceManager As Object, CreateUnoService As Object
Fichier = "file:///C:/Users/FAB/Desktop/Base/ACTION.odb"
oServiceManager = CreateObject("com.sun.star.ServiceManager")
CreateUnoService = oServiceManager.CreateInstance("com.sun.star.sdb.DatabaseContext")
oDB = CreateUnoService.getByName(Fichier)
oBase = oDB.getConnection("", "")
oStatement = oBase.createStatement()
strSQL = "SELECT ""COMMENTAIRES"" FROM ""ACT"" "
oRequete = oStatement.executeQuery(strSQL)
oRequete.next()
MsgBox(oRequete.Columns.getByName("COMMENTAIRES").getString(0))
Dim Commande As New SqlCommand(oRequete)
Dim Adaptateur As New SqlDataAdapter(Commande)
Dim MonDataSet As New DataSet
Try
Adaptateur.Fill(MonDataSet, "ACT")
DataGridView1.DataSource = MonDataSet.Tables("ACT")
Catch ex As Exception
MsgBox(ex.Message)
End Try
oRequete.Close()
oStatement.Close()
oBase.Close()
oBase.Dispose()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class