ADO HELPER - CLASSE D'AIDE MANIPULATION DE BASES DE DONNÉES ACCESS MYSQL SQLSERVER [MODULE DE CLASSE]

Commentaire de Renfield le 17/12/2007 09:00:35 administrateur CS

dans une classe similaire que j'ai faite, j'ai mis une fonction pratique pour réaliser des etats... pendant la conception de ceux-ci, je créé une table a partir d'un RecordSet.

est-ce que l'on peut utiliser des transactions ?

Commentaire de petchy le 17/12/2007 11:09:15

Bonjour

je suis entierement d'accord avec Exploreur,trés trés utile est super bien commenté.
@plus
petchy

Commentaire de Renfield le 17/12/2007 19:41:23 administrateur CS

par ADOX

Public Sub CreateTableFromRS(ByRef vsName As String, ByRef voRs As ADODB.Recordset)
Dim oCat As ADOX.Catalog
Dim oTable As ADOX.Table
Dim oField As ADODB.Field
Dim oColumn As ADOX.Column
Dim oRs As ADODB.Recordset
    Set oCat = New Catalog
    Set oCat.ActiveConnection = moConn
    
    On Local Error Resume Next
    oCat.Tables.Delete (vsName)
    On Local Error GoTo 0
    
    Set oTable = New Table
    oTable.Name = vsName
    
    oCat.Tables.Append oTable
    
    For Each oField In voRs.Fields
        Set oColumn = New Column
        oColumn.Name = oField.Name
        oColumn.Attributes = adColNullable
        oColumn.Type = oField.Type
        oColumn.DefinedSize = oField.DefinedSize
        oTable.Columns.Append oColumn
    Next oField
    
    Set oRs = Me.OpenRecordset(vsName, adCmdTable, adLockOptimistic)
    
    voRs.MoveFirst
    Do Until voRs.EOF
        oRs.AddNew
        For Each oField In voRs.Fields
            If Not IsNull(oField.Value) Then
                oRs.Fields(oField.Name).Value = oField.Value
            End If
        Next oField
        oRs.Update
        voRs.MoveNext
    Loop
    oRs.Close
End Sub

Commentaire de PCPT le 03/01/2008 14:59:38 administrateur CS

Renfield -> dommage, apparemment seul access supporte '.Append ObjTable'
je continue mes recherches...

Commentaire de PCPT le 13/01/2008 18:00:41 administrateur CS

voilà une MAJ relativement importante, SQLSERVER200 est maintenant totalement fonctionnel et intégré, tant pour les créations de tables, listings de champs, requêtes, taille, duplication, compaquetage etc....
MYSQL a aussi bien évolué

j'ai aussi revu disons.. toute la todolist, voir le détail dans la source.

j'ai changé le niveau (1 vers 2) parce que c'est pas forcément si évident de s'y retrouver dans ces 1700 lignes....

pour rappel, le principal intérêt et de pouvoir communiquer avec des bases de types différents sans avoir à changer son code.

c'est à dire qu'il y aurait juste une ou 2 propriétés à changer (genre l'IP, le mot de passe) et rien d'autre, sacré gain, de temps non ^^


pour le moment la classe semble rencontrer un problème avec SQLSERVER2005 (délai dépassé mais je pense que l'erreur est fausse), je m'y pencherai plus tard

n'hésitez pas à tester et à me demander d'autres types de bases (fox, oracle, etc...) en précisant alors comment me procurer le moteur et/ou une base exemple pour les tests

++ ;)

Commentaire de pluplu le 16/03/2008 22:48:24

Salut PCPT,

Génial ta classe pour simplifier la connexion entre divers bases de données. J'essaie par contre de relier un listfield d'un datacombo à un objet AfCls_ADO, et c'est un peu plus galère ça semble fonctionner pour la propriété ListField, mais je ne parviens pas pour la propriété Rowsource aurais tu une idée ??
      
DbcCategory.RowSource = MyAdo.RSObjRecordSet(1).??
DbcCategory.ListField = MyAdo.RSObjRecordSet(1).Fields![Category]