Elmo
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 15/04/2009 14:12 hs
Dim str As Long str = Text7
Adodc1.RecordSource = ""
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "Select * from contas where codigo = '& str &'"
Adodc1.Refresh Nao funciona quem puder ajudar agradeço |
|
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 15/04/2009 14:19 hs
se o campo é numérico e o banco é access, então basta tirar as aspas simples da query Dim str As Long str = Text7
Adodc1.RecordSource = ""
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "Select * from contas where codigo = " & str
Adodc1.Refresh |
|
|
|
Elmo
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 15/04/2009 14:25 hs
Valeu amigão , funcionou Abraços |
|
|
|
