João Paulo
não registrado
|
|
Postada em 24/09/2010 15:36 hs
Amigo e como eu faria uma consulta para q mostre os resultados em caixas de texto e em um GRID? Poderia postar uma dica aki pra min. Obrigado |
|
|
|
|
|
|
|
Postada em 26/09/2010 10:49 hs
'declarations
Dim ws As Workspace
Dim db As Database
Dim tb As Recordset 'Load do Form
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase("", dbDriverComplete, False, "Driver={MySQL ODBC 3.51 Driver};Server= Localhost;Database=AudioClin; User=root;Password=Suasenha;Option=3;")
Set tb = db.OpenRecordset("Select * from tabExames order by Nome_Exame Asc",dbOpenDynaset) 'Botao de Novo Registro
tb.AddNew
'Botao de Salvar Registro
tb.Fields("Codigo_Exame") = Format(CodigoExame, "000000")
tb.Fields("Nome_Exame") = TextoExame
tb.Update
MsgBox "ALTERAÇÕES SALVAS COM ÊXITO!", vbInformation
|
|
|
|
joao paulo
não registrado
|
|
Postada em 27/09/2010 08:30 hs
Felipe, esse codigo é o que eu estava precisando, vou tentar fazer assim na minha casa, e posto aki falando se deu certo. Obs.: Fazendo assim vou poupar muito tempo de serviço, pois só mudarei a String Set db = ws.OpenDatabase... O resto dos meu codigos ira funcionar blz. Obrigado por essa dica. vou testar. |
|
|
|
Juan Carlos R.A
não registrado
|
|
Postada em 27/09/2010 17:03 hs
para mostrar em caixas de texto:
dim regtabelas as new adodb.recordset
set regtabelas=cn.execute("select * from tabela where codigoo= ' " & valorpesuisa &" ' ")
if not regtabelas.eof then
textcodigo.text=regtabelas.nome
.......
endif
|
|
|
|
JOÃO PAULO
não registrado
|
|
Postada em 27/09/2010 21:02 hs
Felipe,
Ainda continua dando erro, agora esta dando Erro 13 nesta linha
et tb = db.OpenRecordset("Select * from tabExames order by Nome_Exame Asc",dbOpenDynaset)
o que pode ser isso
|
|
|
|
|
|
Postada em 28/09/2010 10:58 hs
Copie do formulário os codigos deste as variaveis até o load do referido e poste aki para ver onde esta o erro.Fiz um este e não da erro no meu. |
|
|
|
