Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: zmiana wartości Data1.RecordSource
zbyszekxv




Typ: neutral
Postów: 39
Zarejestrowany: Mar 2004
zmiana wartości Data1.RecordSource

Witam, mam pytanie jak za pomocą kodu zmienić wartość w RecordSource?

31-03-2005 10:47
Pokaż profil zbyszekxv  Wyślij email do zbyszekxv   
Knight Lore''FC




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

Form1.Data1.RecordSource = "Select * From KAR_NOWE"
Form1.Data1.Refresh

Warunek plik KAR_NOWE jest w tym samym katalogu co aktualnie podpieta baza danych i struktura danych jest ta sama.

Jeśli to za mało, to służe pomoca... ZJADŁEM ZĘBY na SQL - ale tylko dla plików DBF

[Post edytowany dnia 02-04-2005 01:36 przez Knight Lore'FC]

02-04-2005 01:35
Pokaż profil Knight Lore  Wyślij email do Knight Lore        1065423
zbyszekxv




Typ: neutral
Postów: 39
Zarejestrowany: Mar 2004

Super, zadziałało, mam jeszcze problemy z zapisywaniem rekordów poprzez Data1.Recordset.AddNew bo to wpisuje od razu do tablicy, a chciałbym żeby po wpisaniu do textbox miał szansę anulować ten wpis.
Pozdrawiam

02-04-2005 09:23
Pokaż profil zbyszekxv  Wyślij email do zbyszekxv   
anonim




Typ: Nie zarejestrowany

'/// wpisujemy 6 textboxów do 6-ciu kolejnych pól ///

  '///  Sprawdzamy czy jest coś napisane ///

    For i = 0 To 5
        a = a + Len(Text1(i).Text)
    Next i

    If a = 0 Then Exit Sub    '/// jeżeli nie , to koniec ///

    Data1.Recordset.AddNew

    For i = 0 To 5
      If Text1(i).Text <> "" Then
          Data1.Recordset.Fields(i) = Text1(i).Text
      End If
    Next i

    Data1.Recordset.Updat

-----------------------------
'/// lub na piechotę ///

  If Len(text_imie.Text) + Len(text_nazwisko.Text) = 0 Then Exit Sub

  Data1.Recordset.AddNew

  If text_imie.Text <> "" Then
      Data1.Recordset.Fields( "imie" ) = text_imie.Text 
  end if

  If text_nazwisko.Text <> "" Then
      Data1.Recordset.Fields( "nazwisko" ) = text_nazwisko.Text 
  end if

  Data1.Recordset.Update

02-04-2005 16:04
  
zbyszekxv




Typ: neutral
Postów: 39
Zarejestrowany: Mar 2004

Wielkie dzięki, mam jeszcze pytanko o kolejność wyświetlania danych(sortowanie) w tej chwili dane ustawiają się automatycznie według 1 kolumny, chciałbym to zmienić. I czy można ustawić  sortowanie  względem np. 2 kolumn jak w excel-u?

03-04-2005 11:53
Pokaż profil zbyszekxv  Wyślij email do zbyszekxv   
Knight Lore''FC




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

Jezeli uzywasz kontrolki MSFlexGrid to :

Ustawiasz sie na wybranej kolumnie:
Form1.MSFlexGrid1.Col=2

Ustalasz jak ma byc sortowana :
Form1.MSFlexGrid1.Sort = 2

Constant Value Description
flexSortNone 0 None. No sorting is performed.
flexSortGenericAscending 1 Generic Ascending. An ascending sort, which estimates whether text is string or number, is performed.
flexSortGenericDescending 2 Generic Descending. A descending sort, which estimates whether text is string or number, is performed.
flexSortNumericAscending 3 Numeric Ascending. An ascending sort, which converts strings to numbers, is performed.
flexSortNumericDescending 4 Numeric Descending. A descending sort, which converts strings to numbers, is performed.
flexSortStringNoCaseAsending 5 String Ascending. An ascending sort using case-insensitive string comparison is performed.
flexSortNoCaseDescending 6 String Descending. A descending sort using case-insensitive string comparison is performed.
flexSortStringAscending 7 String Ascending. An ascending sort using case-sensitive string comparison is performed.
flexSortStringDescending 8 String Descending. A descending sort using case-sensitive string comparison is performed.
flexSortCustom 9 Custom. This uses the Compare event to compare rows.

lub sortujesz juz przy podlaczaniu bazy danych (sortowanie wzgledem pola Nazwisko) :

Form1.Data1.RecordSource = "Select * From KAR_NOWE Order By Nazwisko"
Form1.Data1.Refresh

Pozdrawiam

03-04-2005 23:05
Pokaż profil Knight Lore  Wyślij email do Knight Lore        1065423
Wszystkich odpowiedzi: 5 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1