Newsgroup: it.comp.lang.visual-basic
Titolo: dbcombo aiuto

Salve forse per voi è una domanda banale ma io sto impazzendo
ho messo su un form un DBcombo e un textbox, entrambi collegati ad un db
(tramite un controllo data).
Quando parte il programma il combo viene popolato con i valori presenti nel
campo1 della tabella
e nel textbox viene visualizzata la stringa di descrizione del primo record.
Ora i miei problemi sono 2
1) è possibile ordinare in maniera automatica gli elementi nel Dbcombo come
si fa con la proprieta Sorterd del normale combo
2) Una volta selezionato un elemento del combo come posso aggiornare il
textbox
Tnx
RdC
-- 
L'informatica è un arte
---------------------------------------------------------
 
www.pascallike.too.it
 
http://utenti.lycos.it/pascallike
 il sito sulla programmazione pascal
sorgenti, tutorial ed utility
---------------------------------------------------------


Private Sub DataCombo_Change()
    textbox.text = .......
End Sub
P.S.: io ho usato un DataCombo e non un DBCombo. Non so quanto cambiano le
cose.

 il textbox
Il textbox(consiglio: non associarlo) potresti sempre aggiornarlo negli
eventi della combo
prova una cosa di questo tipo
Private Sub DBCombo1_Click(Area As Integer)
'effettui una ricerca
Data1.Recordset.FindFirst "TuoCampo='" & DBCombo1.Text & "'"
'verifichi il risultato della ricerca
If Not Data1.Recordset.NoMatch Then 'Se trovata
  Text1 = Data1.Recordset.Fields("AltroCampo")
Else'Cosa improbabile visto che è un controllo associato
    'Magari è stato cancellato proprio in questo momento
End If
End Sub
Private Sub Form_Load()
'qui decidi l'ordine
Data1.RecordSource = "Select * from TuaTabella order by TuoCampo"
DBCombo1.Text = ""
Text1=""
End Sub
Ciao
Alessandro
--
Morfeus®
Free Joint
:PII

 End If
Ho provato una cosa del genere ma mi da errore
materialiDB.Recordset.FindFirst "tipo='" & tipoDB.Text & "'"
If Not materialiDB.Recordset.NoMatch Then
     grammatura= materialiDB.Recordset.Fields("grammatura")
End If
Il textbox (grammatura si aggiorna) ma mi viene visualizzato un messaggio
"proprietà o metodo non supportati..."


 Tnx RdC



No č una stringa
RdC
-- 
L'informatica č un arte


 RdC
Ma l'errore dov'è?
Mi spiego quando fai il debug qual'e la riga GIALLA?


 Mi spiego quando fai il debug qual'e la riga GIALLA?
Questa una bella domanda... il programma non si arresta ma continua
l'esecuzione presentandomi ad ogni click
un msgbox di errore
questo č il codice
Private Sub Form_Load()
    materialiDB.RecordSource = "select * from clienti order by tipo"
    tipoDB.Text = ""
End Sub
Private Sub materialiDB_Validate(Action As Integer, Save As Integer)
   If Save Then
      materialiDB.UpdateRecord
    End If
End Sub
Private Sub tipoDB_Click(Area As Integer)
 materialiDB.Recordset.FindFirst "tipo='" & tipoDB.Text & "'"
 If Not materialiDB.Recordset.NoMatch Then
      grammatura = materialiDB.Recordset.Fields("grammatura")
 End If
End Sub
Grazie per l'aiuto
RdC
l'informatica č un arte


Allora controlla la proprietà RecordsetType del Controllo Data
se è di tipo Table non supporta FindFirst impostala a Dynaset
il text box si aggiorna ma sempre allo stesso record del ctrl data
non si ferma ma c'è on error goto qualcosa?


 ha scritto nel messaggio
news:b8tnbp$dj44r$1...@ID-191912.news.dfncis.de...



Beh che dire ce l'abbiamo fatta
