|
|
Postada em 29/05/2008 14:20 hs
O código está assim:
Private Sub cboNome_Click()
Dim sql As String
Dim Busca As String
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "SistemaTimeSheet.mdb;Jet OLEDB: Database"
rs.Open "TAB_PROF", conn, adOpenDynamic, adLockPessimistic
sql = "SELECT * FROM TAB_PROF WHERE NOME='" & cboNome.Text & "'"
Set Busca = rs.Open(sql, conn, adOpenDynamic, adLockPessimistic)
If Not Busca.EOF Then
lblArea.Caption = Busca!AREA
End Sub
Quando eu compilo e depuro, na linha do "Set Busca" o "Open" aparece com a tarja de marcação e a mensagem que aparece é a que eu te falei anteriormente, quando eu tirei as aspas de acordo com o que você me orientou... ele nem compilou já o termo "sql" desta mesma linha já apareceu com a tarja!
Obrigadão!
|
|
|
|
|
|
|
|
Postada em 29/05/2008 14:21 hs
Tá cruel isso ...rs... vê se me da uma mão!..
|
|
TÓPICO EDITADO
|
|
|
|
PH1959
|
SÃO JOSÉ DOS CAMPOS
SP - BRASIL
|
|
Postada em 29/05/2008 14:58 hs
tá usando o q? DAO ou ADO? |
|
|
|
|
|
Postada em 29/05/2008 15:00 hs
ADO!...
|
|
|
|
|
|
Postada em 29/05/2008 15:02 hs
Vou portar o código todo!
------------------------------------------
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
-------------------------------------------
Private Sub Form_Load()
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "SistemaTimeSheet.mdb;Jet OLEDB: Database"
rs.Open "TAB_PROF", conn, adOpenDynamic, adLockPessimistic
cboNome.Clear 'Limpa a combo
Do
cboNome.AddItem rs.Fields("NOME") 'inclui o dado do campo nome do recordset
rs.MoveNext 'move para o próximo registro
Loop While Not rs.EOF
End Sub
---------------------------
Private Sub cboNome_Click()
Dim sql As String
Dim Busca As String
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "SistemaTimeSheet.mdb;Jet OLEDB: Database"
rs.Open "TAB_PROF", conn, adOpenDynamic, adLockPessimistic
sql = "SELECT * FROM TAB_PROF WHERE NOME='" & cboNome.Text & "'"
Set Busca = rs.Open(sql, conn, adOpenDynamic, adLockPessimistic)
If Not Busca.EOF Then
lblArea.Caption = Busca!AREA
End If
End Sub
|
|
|
|
PH1959
|
SÃO JOSÉ DOS CAMPOS
SP - BRASIL
|
|
Postada em 29/05/2008 15:04 hs
|
|
|
|
