Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Exportation Sur Excel

Exportation Sur Excel

2 réponses
Avatar
Frédéric
J'ai VB6 Pack 5sur Win 2000

j'utilise la fonction utilisé par Visdte, pour faire des exportations de
bases de données SQL Vers Excel.
Ce programme fonctioinnait correctement sur VB5 et depuis que j'aii
VB6pack 5 j'ai toujour l'erreur :

Couldn't find Installable ISAM

Quelqu'un peuxt'iil me dire comment on corrige cela ?

MErci d'avance
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Hervé
Salut Frédéric,
Comment écris tu la chaine de connection au privider ?
Hervé.
"Frédéric" a écrit dans le message news:
#
J'ai VB6 Pack 5sur Win 2000

j'utilise la fonction utilisé par Visdte, pour faire des exportations de
bases de données SQL Vers Excel.
Ce programme fonctioinnait correctement sur VB5 et depuis que j'aii
VB6pack 5 j'ai toujour l'erreur :

Couldn't find Installable ISAM

Quelqu'un peuxt'iil me dire comment on corrige cela ?

MErci d'avance








Avatar
Frédéric
Voici le programme ci joint



Dim szfilename As String
Dim szextension As String
Dim pos As Integer
Dim rcdTable As Recordset
Dim gExpDB As Database
Dim szConnect As String

'Exportation des catégorie
'Nom à sauvegarder
COMDLGGESACT.CancelError = True
COMDLGGESACT.DefaultExt = ".xls"
COMDLGGESACT.DialogTitle = "Sauvegarde des contrats en cours"
COMDLGGESACT.InitDir = g_szcurdir
COMDLGGESACT.FileName = ""
COMDLGGESACT.Flags = &H4
COMDLGGESACT.Filter = "Excel (*.xls)|*.xls"

On Error Resume Next
Err = 0
COMDLGGESACT.ShowSave
szfilename = COMDLGGESACT.FileName
If Len(szfilename) > 0 And Err = 0 Then
Screen.MousePointer = vbHourglass

'J'ai le nom du fichier :
'vérifier l'extension
pos = InStr(szfilename, ".")
If pos > 0 Then
szextension = Mid$(szfilename, pos + 1)
If UCase(szextension) <> "XLS" Then
szfilename = Left$(szfilename, pos - 1) + ".XLS"
End If

Else
szfilename = szfilename + ".XLS"
End If
'Ayant le nom du fichier
'Je le détruit si il existe
On Error Resume Next
Kill szfilename
On Error GoTo 0
'Maintenant on exporte le fichier en excel
'Set rcdTable = g_dbActLCD.OpenRecordset(G_szContrat)

szConnect = "[Excel 5.0;database=" & szfilename & "]."
gsEXCEL50 = "Excel 5.0;"
'*********************************************************
Set gExpDB = g_wrkJet.OpenDatabase(szfilename, 0, 0, gsEXCEL50)
'*********************************************************
'Erreur donnée par VB couldn't find installable ISAM


g_dbActLCD.Execute "select * into " & szConnect & "Contrat" & " from " &
G_szContrat

gExpDB.Close
Screen.MousePointer = vbDefault

pos = MsgBox("Exportation des contrats en cours enregistrée sous " &
szfilename, vbInformation + vbOKOnly, "Exportation de fichier")
End If
On Error GoTo 0


Merci d'avance poour ta réponse.

Fred


"Hervé" a écrit dans le message de news:

Salut Frédéric,
Comment écris tu la chaine de connection au privider ?
Hervé.
"Frédéric" a écrit dans le message news:
#
> J'ai VB6 Pack 5sur Win 2000
>
> j'utilise la fonction utilisé par Visdte, pour faire des exportations de
> bases de données SQL Vers Excel.
> Ce programme fonctioinnait correctement sur VB5 et depuis que j'aii
> VB6pack 5 j'ai toujour l'erreur :
>
> Couldn't find Installable ISAM
>
> Quelqu'un peuxt'iil me dire comment on corrige cela ?
>
> MErci d'avance
>
>
>
>
>
>