ACESSAR BD MANUALMENTE

USUARIO.EXCLUIDOS 02/07/2004 00:47:54
#31923
Olá galera, td blz? Tipo, eu até agora sempre uso controles data pra acessa o banco de dados, mas gostaria de aprender a fazer isso manualmente, soh por codigo. Podem me ajudar? Vlw!
USUARIO.EXCLUIDOS 02/07/2004 07:35:15
#31930 Resposta escolhida
Tente algo parecido com isso:

dim objConn as object
dim strConn as string
dim objRs as object
Set objConn = CreateObject("ADODB.Connection")
objConn.CursorLocation = 3 'AdUseClient
'String utilizada para conexão ao banco
strConn = "PROVIDER=SQLOLEDB;SERVER=SeuServidorSQL;UID=SeuLogin;PWD=SuaSenha"
'Abre conexão com banco
objConn.open strConn

set objRs = CreateObject("ADODB.Recordset")
objRs.CursorLocation = 3 'AdUseClient
'Abre recorset
set objRs = objConn.Execute("SELECT top 1 campo1, campo2 From Tabela")
If objRs.RecordCount >0 Then
     Msgbox objRs!campo1
     Msgbox objRs!campo2
End IF
objRs.Close
Set objRs = nothing
Set objConn = Nothing


Espero ter ajudado
Tópico encerrado , respostas não são mais permitidas
Voltar