Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: ADODC, Record
anonim




Typ: Nie zarejestrowany
ADODC, Record

Witam. Tworze baze danych i chciałbym zeby zamiast Record 1 of 2 wyświetlał się tytul jednego wiersza i tak dalej zeby bylo widac tekst. Jak narazie nie doszedlem do tego bo wiekszosc tych funkcji trzeba tworzyc od nowa.

Private Sub OpenRecordset()

    CreateListContact

    ' open recordset
    Rs.CursorLocation = adUseClient
    Rs.Open StrSQL, CN, adOpenStatic, adLockOptimistic

    ' binding records
    Set MyData.DataSource = Rs
    DoEvents

    ' move first
    If Not (Rs.EOF And Rs.BOF) Then
        MyData.MoveFirst
    End If

End Sub

Nie wiem czy da sie rady taki cos zrobic ale moze jednak.

31-10-2004 11:32
  
karolinavb




Typ: neutral
Postów: 468
Zarejestrowany: Jan 2003

Jeśli to VB ( a  nie jest to dla mnie oczywiste z powodu sformułowania 1 of 2)...
Rozumiem, że w CreateListContact - w tej procedurze tworzysz bazę w kodzie ( bo jeśli nie i baza jest gotowa) można łańcuch połączenia tworzyć w Property Page ADODC  prawy klawisz myszki "Properties" )

1.poniżej
        nazwapola string lub inna funkcja która Cię interesuje
.Fields(nazwapola).Value można zastąpić tym co chcesz

2. Poniżej OR a nie AND
If Not (Rs.EOF OR Rs.BOF) Then
        MyData.MoveFirst
        MyData.Caption = .Fields(nazwapola).Value
End If

Oraz

2.
Private Sub MyData_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
With pRecordset
    If Not (.EOF Or .BOF) Then
        MyData.Caption = .Fields(nazwapola).Value
    End If
End With
End Sub


_____________________________________________
Karolina

01-11-2004 00:57
Pokaż profil karolinavb  Wyślij email do karolinavb   
Wszystkich odpowiedzi: 1 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1