Ανανέωση ιστοσελίδας

[Giorgos]

Καλησπέρα..

πριν μερικές μέρες μου έστειλε φίλος του φόρουμ τον παρακάτω κώδικα που τρέχει πολύ καλά σε mdb αλλά όχι σε adp...

Public Function ViewRecordPerField(ByVal TblName As String, CustID As Variant)
Απαιτήσεις είναι στα Reference το Microsoft DAO 3.6 Object Library
Παράδειγμα κλήσης ViewRecordPerField("TblItems")
Dim Fld As Object, Tbl As TableDef, RcdSetTable As DAO.Recordset, TempTxt as String
Set Tbl = CurrentDb.TableDefs(TblName)
Set RcdSetTable = Dbs.OpenRecordset("Select * From " & TblName & " Where AccEidosCode=" & CustID)
If Not RcdSetTable.EOF And Not RcdSetTable.BOF Then
For Each Fld In Tbl.Fields
TempTxt=TempTxt & Fld & vblf
Next
'Καλούμε το PrintTemp
PrintTemp "tmp.txt", TempTxt
End If
End Function

μήπως γνωρίζει κανείς την τροποποίηση του για να παίξει σε adp και βάση SQL..?

[Tasos]

Γιώργο καλημέρα!

Σου κάνει το παρακάτω;



Sub OpenSqlTable()

    Dim rs As New ADODB.Recordset

    Debug.Print CurrentProject.AccessConnection

    With rs

        .Open "SELECT * FROM tblCustomers WHERE tblCustomers.CustID = " & Me.cboCustomers, _

              CurrentProject.AccessConnection, 1, 3

        If Not .RecordCount = 0 Then

            '.......................................

            '.......................................

            '.......................................

        Else

            .Close

            Exit Sub

        End If

        .Close

    End With

End Sub



Φιλικά



Τάσος


        

[Giorgos]

καλησπέρα Τάσσο..

γαντι μου έκανε...

Σε ευχαριστώ πολύ..!