Aller au contenu


Photo

Comment lister le nom des colonnes d'une DataBase


  • Please log in to reply
2 replies to this topic

#1 patyom

patyom

    Grand(e) bavard(e)

  • Membres
  • PipPipPip
  • 364 Messages :
  • Sexe:Masculin
  • Localisation:Livernon (Lot)

Posté 28 septembre 2019 - 11:08

Bonjour,

Après consultation des posts sur les databases, je n'arrive toujours pas à lister le nom des colonnes des tables de ma DataBase.

 

avec ce code j'arrive à lister les tables :

		
	// Gestion des tables de la database
	Tables = MGestionTables(mDB)
		
	for i = 1 to Tables.CountFields(";")
	    Listbox1.AddRow Tables.NthField(";",i)
	next i
		
//---------
	MGestionTables(DB as database)

	// DB est la Database connectée
	Dim Tab as string
	if DB.Connect then
	        Dim tables As RecordSet
	        tables = DB.TableSchema
				
		If tables <> Nil Then
			While Not tables.EOF
				Tab = Tab + tables.IdxField(1).StringValue + ";"
				tables.MoveNext
			Wend
			tables.Close
		End If
		Tab = Left(Tab,len(Tab)-1)
				
		return Tab
	end if
//---------	

Mais pour les colonnes arghhhhh!

 

Une idée pour m'aiguiller

 

a+


Ce message a été modifié par patyom - 28 septembre 2019 - 11:10 .

MacBook Pro - 13" - 6Go - 1 To
Emac 1GHz - 640 MB - 40 Go


#2 patyom

patyom

    Grand(e) bavard(e)

  • Membres
  • PipPipPip
  • 364 Messages :
  • Sexe:Masculin
  • Localisation:Livernon (Lot)

Posté 28 septembre 2019 - 14:05

A force de persévérance, on y arrive :

Dim dbFile As FolderItem
dbFile = GetOpenFolderItem("")

If dbFile <> Nil Then
	Dim db As New SQLiteDatabase
	db.DatabaseFile = dbFile
	if db.Connect Then
		Dim indexRS As RecordSet
		indexRS = db.fieldSchema("NomTableStr") // A table with indexes in the SQLite DB
						
		listbox2.DeleteAllRows
		Listbox2.Visible = true
		Listbox2.ColumnWidths = "40%,25%,20%,20%"
						
		If indexRS <> Nil Then
			While Not indexRS.EOF
				Listbox2.AddRow indexRS.IdxField(1).StringValue
				indexRS.MoveNext
			Wend
			indexRS.Close
		End If
	End If
End If

Ce message a été modifié par patyom - 28 septembre 2019 - 14:08 .

MacBook Pro - 13" - 6Go - 1 To
Emac 1GHz - 640 MB - 40 Go


#3 BorakLeRouge

BorakLeRouge

    Hamster d'or (dort ?)

  • Membres
  • PipPipPipPipPipPipPip
  • 3 981 Messages :
  • Configuration:Mac Mini Core i7 2019 - 16Go - 2x1To SSD
  • Sexe:Masculin
  • Localisation:Cormeilles en Parisis.rb
  • Passions:Macintosh, Photo, Haute-fidélité, Ski, Roller, Call of Duty, Tactical Ops, Counter Strike, Worms 1

Posté 28 septembre 2019 - 14:50

Même plus besoin de chercher :)


Je fais mes sauvegardes sur NSA-Cloud !

Au bout de 10 ans, le vieux MacPro vient de laisser sa place à un MacMini i7...





0 utilisateur(s) en train de lire ce sujet

0 membre(s), 0 invité(s), 0 utilisateur(s) anonyme(s)