Accueil > Forum > > > > importation des donnees
importation des donnees
mardi 28 octobre 2008 à 15:38:56 |
importation des donnees

nada2008
|
bonjour a tous, SVP je veux importer des donnees excel vers une base mysql en vb6 merciiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii
|
|
mardi 28 octobre 2008 à 16:25:21 |
Re : importation des donnees
|
mardi 28 octobre 2008 à 17:07:31 |
Re : importation des donnees

nada2008
|
j'ai dis bonjour , SVP ,et merciiiiii je pense que c un forum pour les questions et pas pour les compliments merci pour les liens
|
|
mardi 28 octobre 2008 à 17:54:41 |
Re : importation des donnees

PCPT
|
salut,
la politesse y est mais en réalité...., pas la question :)
"je veux importer excel vers mysql", c'est un export çà, non?
et quelle est la difficulté que tu rencontres? lire excel? récupérer les données? connexion à mysql? créer une base mysql? quel est ton code actuel?
y'a pas de question, tu dis ce que tu veux....
ok : do it  Prenez un instant pour répondre à ce sondage svp
|
|
mardi 28 octobre 2008 à 22:07:47 |
Re : importation des donnees

nada2008
|
ok dsl pour le retard , le probleme ke j'ai c'est d'importer les champs d'un fichier excel dans ma base mysql ,j'ai deja fais connexion avec la base mysql et ca marche SVP aidez moi 
|
|
mardi 28 octobre 2008 à 23:39:05 |
Re : importation des donnees

PCPT
|
le reste se trouve ici alors :
' CONNEXION À UNE BASE DE DONNÉES MYSQL ' http://www.codyx.org/snippet_connexion-base-donnees-mysql_108.aspx#1899 ' Posté par [ PCPT ] le 23/06/2008
' COPIEZ LE CODE CI-DESSOUS DANS UN MODULE DE CLASS, VOUS AVEZ ACCES AUX OBJETS DB ET RS Option Explicit ' msado25.tlb (Microsoft ActiveX Data Objects 2.5 Library) ' msadox.dll (Microsoft ADO Ext. 2.7 for DLL and Security) Public DB As New ADODB.Connection Public RS As New Recordset ' CONNEXION Public Function DBConnect(ByVal sDBName As String, Optional ByVal sHost As String = "127.0.0.1", Optional ByVal sUser As String = "root", Optional ByVal sPassword As String = vbNullString) As Boolean Me.DBClose With DB .ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=" & sHost & ";DATABASE=" & sDBName & ";UID=" & sUser & ";PWD=" & sPassword & ";OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384 & ";" .CursorLocation = adUseClient .ConnectionTimeout = 1 .CommandTimeout = 1 On Error GoTo Err_Handler .Open DBConnect = True Exit Function End With Err_Handler: Debug.Print "[DBConnect] " & Err.Number & " : " & Err.Description End Function ' FERMETURE DB Public Sub DBClose() Me.DB.Cancel If Me.DBConnected Then Me.DB.Close End Sub ' BASE CONNECTéE ? Public Function DBConnected() As Boolean DBConnected = Not (Me.DB.State = adStateClosed) End Function ' REQUÊTE Public Function RSExecute(ByVal sSql As String) As Boolean If Me.DBConnected Then Call RSClose Me.RS.CursorLocation = adUseClient On Local Error GoTo Err_Handler Me.RS.Open sSql, Me.DB, adOpenDynamic, adLockOptimistic, -1 RSExecute = True End If Exit Function Err_Handler: Debug.Print "[RSExecute] " & Err.Number & " : " & Err.Description End Function ' FERMETURE RS Private Sub RSClose() Me.RS.Cancel If Not (Me.RS.State = adStateClosed) Then Me.RS.Close End Sub ' DESTRUCTION CLASS Private Sub Class_Terminate() Call RSClose: Set Me.RS = Nothing Me.DBClose: Set Me.DB = Nothing End Sub ps : merci d'éviter les messages SMS !
|
|
Cette discussion est classée dans : donnees, importation
Répondre à ce message
Livres en rapport
|
Derniers Blogs
XNA IS DEAD!XNA IS DEAD! par richardc
Depuis la semaine dernière (et grâce aux TechDays 2012), je me penche activement sur la nouvelle version de Windows, aka Windows 8. Vous me direz, il était temps puisque la première preview date de Septembre dernier.
OK. Remarquez, on n'en est qu'aux...
Cliquez pour lire la suite de l'article par richardc TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 !TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 ! par ROMELARD Fabrice
Speakers: Fabrice Meillon et Stanislas Quastana Cette session est basée entièrement sur celle donnée lors de la BUILD cet hiver. Il n'y a pas d'ajout d'information en rapport avec cet évènement passé. Windows 8 Server sera intégralem...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice [HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE)[HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE) par Gio
Je m'y prends un peu tard je sais, mais bon je suis développeur web et donc hyper fainéant ! Toujours dans le cadre des technologies émergentes, ici HTML5, parce qu'on aime HTML5 chez Wyg , nous seront présent, le vieux ( Aurélien V.) et moi, pour pr...
Cliquez pour lire la suite de l'article par Gio [WP7] DYNAMICALLY CHANGE STARTUP PAGE[WP7] DYNAMICALLY CHANGE STARTUP PAGE par KooKiz
Let's say that you want to allow the user to customize the startup page of your application. You can easily change the startup page by editing the 'NavigationPage' attribute in the manifest file. But the manifest cannot be modified once the applicatio...
Cliquez pour lire la suite de l'article par KooKiz
Logiciels
DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|