Accueil > > > SQLCE CRÉER UNE BASE SANS SQL SERVER
SQLCE CRÉER UNE BASE SANS SQL SERVER
Information sur la source
Description
Voici comment créer une base SQLCe sur un Pocket PC sans SQL Server. On réalise cette base et on la remplie à partir d'un fichier texte
Source
- Imports System.IO
- Imports System.Data
- Imports System.Data.SqlServerCe
- Imports System.Text
- Public CheminCourant As String = System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly.GetName.CodeBase)
- Public Const ListeSeparation As String = ","
- Public Const FichierSQL = "\MaBase.sdf"
- Public Const FicGare = "\listeScores.txt"
- #Region "Maintenance Base SQL ExistanTe(ou pas)"
- Public Function CréateDB()
- 'Cette procédure permet de vérifier l'existence de la base SDF
- 'Si elle n'existe pas on la crée
- If Not File.Exists(CheminCourant & FichierSQL) Then
- VerifieDB = False
- MsgBox("tentative de reconstruire les bases de données")
- 'On refabrique la base
- If CreateBase() = True Then
- MsgBox("Création de la Base")
- Else
- MsgBox("Impossible de créer la BD")
- Exit Function
- End If
- ChargeBaseScore()
- VerifieDB = True
- Else
- VerifieDB = True
- End If
- End Function
- Public Function CreateBase() As Boolean
- CreateBase = False
- Dim cu_sql As String
- Dim MySqlCeEngine As New SqlCeEngine("Data Source=" & CheminCourant & FichierSQL)
- MySqlCeEngine.CreateDatabase()
- MySqlCeEngine.Dispose()
- Dim maconnexion As SqlCeConnection = Nothing
- Try
- maconnexion = New SqlCeConnection(("Data Source=" & CheminCourant & FichierSQL))
- maconnexion.Open()
- Dim mycmd As SqlCeCommand
- mycmd = maconnexion.CreateCommand
- 'Ici implémenter la lecture d'un fichier SQL.
- 'Base Score
- cu_sql = "CREATE TABLE Score(Nom ntext,Prenom ntext, Score int)"
- MsgBox(cu_sql)
- mycmd.CommandText = cu_sql
- mycmd.ExecuteNonQuery()
- MsgBox("Creation base Score: Succès")
- maconnexion.Close()
- CreateBase = True
- Catch ex As Exception
- MsgBox(ex.Message, MsgBoxStyle.Exclamation)
- End Try
- End Function
- Public Sub ChargeBaseScore()
- MsgBox(" debut chargement gares")
- Cursor.Current = Cursors.WaitCursor
- Dim Req_sql As String
- Dim sr As StreamReader = New StreamReader(CheminCourant & FicGare)
- Dim StrInput As String
- Dim StrData() As String
- Dim maconnexion As SqlCeConnection = Nothing
- Try
- maconnexion = New SqlCeConnection(("Data Source=" & CheminCourant & FichierSQL))
- maconnexion.Open()
- Dim mycmd As SqlCeCommand
- mycmd = maconnexion.CreateCommand
- Do
- StrInput = sr.ReadLine
- If StrInput Is Nothing Then GoTo suite
- StrData = StrInput.Split(ListeSeparation)
- StrData(0) = Replace(StrData(0), "'", "''")
- Req_sql = "INSERT INTO Gare(Nom, Prenom, Score ) VALUES ('" & StrData(0) & "','" & StrData(1) & "'," & StrData(2) & ");"
- mycmd.CommandText = Req_sql
- mycmd.ExecuteNonQuery()
- Loop Until StrInput Is Nothing
- suite:
- MsgBox("Fin de Chargement Score")
- sr.Close()
- maconnexion.Dispose()
- maconnexion.Close()
- Catch ex As Exception
- ShowErrors(ex)
- sr.Close()
- maconnexion.Dispose()
- maconnexion.Close()
- 'MsgBox(ex.Message, MsgBoxStyle.Exclamation)
- End Try
- Cursor.Current = Cursors.Default
- End Sub
- Public Sub ShowErrors(ByVal e As SqlCeException)
- Dim errorCollection As SqlCeErrorCollection = e.Errors
-
- Dim bld As New StringBuilder
- Dim inner As Exception = e.InnerException
-
- If Not inner Is Nothing Then
- MessageBox.Show(("Inner Exception: " & inner.ToString()))
- End If
-
- Dim err As SqlCeError
-
- ' Enumerate each error to a message box.
- For Each err In errorCollection
- bld.Append((ControlChars.Cr & " Error Code: " & err.HResult.ToString("X")))
- bld.Append((ControlChars.Cr & " Message : " & err.Message))
- bld.Append((ControlChars.Cr & " Minor Err.: " & err.NativeError))
- bld.Append((ControlChars.Cr & " Source : " & err.Source))
-
- ' Retrieve the error parameter numbers for each error.
- Dim numPar As Integer
- For Each numPar In err.NumericErrorParameters
- If 0 <> numPar Then
- bld.Append((ControlChars.Cr & " Num. Par. : " & numPar))
- End If
- Next numPar
-
- ' Retrieve the error parameters for each error.
- Dim errPar As String
- For Each errPar In err.ErrorParameters
- If [String].Empty <> errPar Then
- bld.Append((ControlChars.Cr & " Err. Par. : " & errPar))
- End If
- Next errPar
-
- MessageBox.Show(bld.ToString())
- bld.Remove(0, bld.Length)
- Next err
- End Sub
- #End Region
-
Imports System.IO
Imports System.Data
Imports System.Data.SqlServerCe
Imports System.Text
Public CheminCourant As String = System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly.GetName.CodeBase)
Public Const ListeSeparation As String = ","
Public Const FichierSQL = "\MaBase.sdf"
Public Const FicGare = "\listeScores.txt"
#Region "Maintenance Base SQL ExistanTe(ou pas)"
Public Function CréateDB()
'Cette procédure permet de vérifier l'existence de la base SDF
'Si elle n'existe pas on la crée
If Not File.Exists(CheminCourant & FichierSQL) Then
VerifieDB = False
MsgBox("tentative de reconstruire les bases de données")
'On refabrique la base
If CreateBase() = True Then
MsgBox("Création de la Base")
Else
MsgBox("Impossible de créer la BD")
Exit Function
End If
ChargeBaseScore()
VerifieDB = True
Else
VerifieDB = True
End If
End Function
Public Function CreateBase() As Boolean
CreateBase = False
Dim cu_sql As String
Dim MySqlCeEngine As New SqlCeEngine("Data Source=" & CheminCourant & FichierSQL)
MySqlCeEngine.CreateDatabase()
MySqlCeEngine.Dispose()
Dim maconnexion As SqlCeConnection = Nothing
Try
maconnexion = New SqlCeConnection(("Data Source=" & CheminCourant & FichierSQL))
maconnexion.Open()
Dim mycmd As SqlCeCommand
mycmd = maconnexion.CreateCommand
'Ici implémenter la lecture d'un fichier SQL.
'Base Score
cu_sql = "CREATE TABLE Score(Nom ntext,Prenom ntext, Score int)"
MsgBox(cu_sql)
mycmd.CommandText = cu_sql
mycmd.ExecuteNonQuery()
MsgBox("Creation base Score: Succès")
maconnexion.Close()
CreateBase = True
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation)
End Try
End Function
Public Sub ChargeBaseScore()
MsgBox(" debut chargement gares")
Cursor.Current = Cursors.WaitCursor
Dim Req_sql As String
Dim sr As StreamReader = New StreamReader(CheminCourant & FicGare)
Dim StrInput As String
Dim StrData() As String
Dim maconnexion As SqlCeConnection = Nothing
Try
maconnexion = New SqlCeConnection(("Data Source=" & CheminCourant & FichierSQL))
maconnexion.Open()
Dim mycmd As SqlCeCommand
mycmd = maconnexion.CreateCommand
Do
StrInput = sr.ReadLine
If StrInput Is Nothing Then GoTo suite
StrData = StrInput.Split(ListeSeparation)
StrData(0) = Replace(StrData(0), "'", "''")
Req_sql = "INSERT INTO Gare(Nom, Prenom, Score ) VALUES ('" & StrData(0) & "','" & StrData(1) & "'," & StrData(2) & ");"
mycmd.CommandText = Req_sql
mycmd.ExecuteNonQuery()
Loop Until StrInput Is Nothing
suite:
MsgBox("Fin de Chargement Score")
sr.Close()
maconnexion.Dispose()
maconnexion.Close()
Catch ex As Exception
ShowErrors(ex)
sr.Close()
maconnexion.Dispose()
maconnexion.Close()
'MsgBox(ex.Message, MsgBoxStyle.Exclamation)
End Try
Cursor.Current = Cursors.Default
End Sub
Public Sub ShowErrors(ByVal e As SqlCeException)
Dim errorCollection As SqlCeErrorCollection = e.Errors
Dim bld As New StringBuilder
Dim inner As Exception = e.InnerException
If Not inner Is Nothing Then
MessageBox.Show(("Inner Exception: " & inner.ToString()))
End If
Dim err As SqlCeError
' Enumerate each error to a message box.
For Each err In errorCollection
bld.Append((ControlChars.Cr & " Error Code: " & err.HResult.ToString("X")))
bld.Append((ControlChars.Cr & " Message : " & err.Message))
bld.Append((ControlChars.Cr & " Minor Err.: " & err.NativeError))
bld.Append((ControlChars.Cr & " Source : " & err.Source))
' Retrieve the error parameter numbers for each error.
Dim numPar As Integer
For Each numPar In err.NumericErrorParameters
If 0 <> numPar Then
bld.Append((ControlChars.Cr & " Num. Par. : " & numPar))
End If
Next numPar
' Retrieve the error parameters for each error.
Dim errPar As String
For Each errPar In err.ErrorParameters
If [String].Empty <> errPar Then
bld.Append((ControlChars.Cr & " Err. Par. : " & errPar))
End If
Next errPar
MessageBox.Show(bld.ToString())
bld.Remove(0, bld.Length)
Next err
End Sub
#End Region
Sources du même auteur
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
Base de sonnée SQLCe avec VB.NET [ par antoineraymond ]
Bonjour. J'aimerais avoir un exemple d'utilisation de SQLCe avec VB.NET. Comment créer la base de donné, comment l'utilisé et comment l
Créer un enregistrement dans une base de donnée Dataset sur PDA [ par Rlooping ]
Comment Faire pour ajouter un enregistrement dans une base de donnée Dataset ????
JAVA PPC BD [ par thiodene ]
Salut,je travaille actuellement sur un projet de développement d'appli java sous ppc.Mon appli a pour but de faciliter la prise de décision
Connection base de données access/java [ par cornik ]
Bonjour a tous voila je dois developper une apllication pour pocket pc dans laquelle je doit faire 2 ou 3 requetes.J'ai commencer à développ
Installation d'un appli [ par edokt ]
Salut Comment peut on créer un exe d'installation d'une application pocketpc. J'ai créer une appli il faut que je l'install sur qq PPC. Je
Base de donnée .cdb [ par btkmine ]
Bonjourje viens de developper une petite application sur le Pocket Pc avec Vb.net et j'arrive a me connecter a la base de données .cdb et j'arriv
problème base de données [ par pradoxil ]
salut tou le monde !j'ai besoin de vous aider mes amis je vient de developper sur embedded visual basic et j'ai un probleme sur la base de donn
Pocket pc + Connexion à une base de données [ par emmanuel9 ]
Bonjour à tous, Je dois réaliser en c# une application smart device pocket pc 2003 et j'aurais besoin de me connecter à partir du pda sur une base de
Base Donnees sur PDA [ par ammar11 ]
salut, je voulais vous demander si quelqu'un connait des serveurs de bases de données gratuits autres que SQL CE et SQL server Mobile pour être utilis
base de registre WinCE [ par neophenix83 ]
Bonjour à tous,Je voudrais creer un composant, à l'aide de la mathode (visual C++) cocreateinstance....Donc, j'ai le CLSID et l'IID de mon composant,
|
Derniers Blogs
ENUMERABLECOLLECTIONENUMERABLECOLLECTION par Matthieu MEZIL
Prenons le scénario suivant. On utilise MVVM. On a les deux classes suivantes dans le model : public class Child { } public class Parent { private ObservableCollection < Child > _children; public ObservableCollection < Child > Children { get {...
Cliquez pour lire la suite de l'article par Matthieu MEZIL [HS] CHROME 6 + MOI = COUP DE GUEULE ![HS] CHROME 6 + MOI = COUP DE GUEULE ! par JeremyJeanson
Attention, le poste qui suit n'est pas la complainte d'une personne : Qui n'aime pas Chrome. D'un anti Google. D'un développeur qui a un poil énorme dans la main. Ceux qui me fréquentent savent que je change de navigateur favori tous les 2 ou 3 mois afin ...
Cliquez pour lire la suite de l'article par JeremyJeanson [WP7] UTILISER UN WRAPPANEL DANS UNE APPLICATION WINDOWS PHONE 7[WP7] UTILISER UN WRAPPANEL DANS UNE APPLICATION WINDOWS PHONE 7 par Audrey
Lors de la réalisation de ma 2ème application Windows Phone 7, j'ai souhaité utiliser un WrapPanel pour afficher plusieurs photos. Mais le contrôle WrapPanel ne fait pas parti de la liste des contrôles inclus dans le SDK de la version Beta des outils pour...
Cliquez pour lire la suite de l'article par Audrey [WP7] BESOIN D'AVOIR DES DONNéES EN CACHE[WP7] BESOIN D'AVOIR DES DONNéES EN CACHE par Nicolas
Les développeurs ASP.NET ont l'habitude de mettre des données en cache pour éviter de requêter a chaque fois la base de données. Et il est toujours utilie de penser que vos utilisateurs mobiles n'ont pas troujours une super connexion 3G/WIFI et un for...
Cliquez pour lire la suite de l'article par Nicolas [TFS] COMMENT FORCER LA SAISIE D'UN AREA OU ITERATION[TFS] COMMENT FORCER LA SAISIE D'UN AREA OU ITERATION par cyril
Lorsque l'on créé un Work Item dans TFS, il est possible de le classer dans un "area" et dans une "iteration". Dans la plupart des types de projet, un "area" correspond à une catégorie, une "iteration" à un numéro de version. Il est possible de cré...
Cliquez pour lire la suite de l'article par cyril
Logiciels
uTorrent (2.0.4)UTORRENT (2.0.4)C'est un client BitTorrent très puissant et très performant. Comme son nom l'indique, uTorrent (m... Cliquez pour télécharger uTorrent Bureau de Gestion - ERP Devis Facturation (2.02)BUREAU DE GESTION - ERP DEVIS FACTURATION (2.02)- Version gratuite du 10/06/2010
Le Bureau de Gestion est un logiciel dédié à la gestion de l'en... Cliquez pour télécharger Bureau de Gestion - ERP Devis Facturation 4Videosoft Transfert iPod Mac (3.2.08)4VIDEOSOFT TRANSFERT IPOD MAC (3.2.08)4Videosoft Transfert iPod-Mac caractérise principalement à transférer les fichiers iPod vers Mac.... Cliquez pour télécharger 4Videosoft Transfert iPod Mac 4Videosoft HD Convertisseur (3.3.08)4VIDEOSOFT HD CONVERTISSEUR (3.3.08)Etant le meilleur HD Vidéo Convertisseur, 4Videosoft HD Convertisseur, vous pouvez regarder la vi... Cliquez pour télécharger 4Videosoft HD Convertisseur 4Videosoft Transfert iPad Mac (3.2.08)4VIDEOSOFT TRANSFERT IPAD MAC (3.2.08)4Videosoft Transfert iPad-Mac est un logiciel managérial iPad professionnel qui a des fonctions i... Cliquez pour télécharger 4Videosoft Transfert iPad Mac
|