|
|
Postada em 29/05/2008 15:07 hs
Na verdade o que eu criei é o que está postado!!!!....
Para que eu utilizaria esse DSN?
|
|
TÓPICO EDITADO
|
|
|
|
|
|
PH1959
|
SÃO JOSÉ DOS CAMPOS
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 29/05/2008 15:17 hs
no declarations... Dim banco As ADODB.Connection
Dim Tabela As ADODB.Recordset
Dim Caminho As String
no seu procedure: Caminho = coloca aki o path do seu bd Set banco = New ADODB.Connection
banco.CursorLocation = adUseClient
banco.Provider = "Microsoft.Jet.OleDB.4.0"
banco.Open "Data Source = " & Caminho Set Tabela = New ADODB.Recordset
tabela.open "coloca aki o sql" e manda bala |
|
|
|
|
|
Postada em 29/05/2008 15:37 hs
Hummmmmmm... entao... eu criei assim...
No declarations:
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
No meu procedure:
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "SistemaTimeSheet.mdb;Jet OLEDB: Database"
rs.Open "TAB_PROF", conn, adOpenDynamic, adLockPessimistic
aí eu joguei a estrutura que o TREZE (usuário) me falou!
Eu tentei da forma que vc me disse... mas na hora de compilar... ele diz que minha conexão não se encontra aberta para fazer tal operação!
É FOGOOOOOOO..!!!!...rs...
Me dá uma mãozinha ae.. pq ta cruel!
|
|
|
|
PH1959
|
SÃO JOSÉ DOS CAMPOS
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 29/05/2008 15:46 hs
num módulo declarations Public cnn As New ADODB.Connection no submain cnnBox1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "SistemaTimeSheet.mdb;"
cnnBox1.Open agora sua conexão ficou certa |
|
|
|
|
|
Postada em 29/05/2008 16:04 hs
Ainda aparece a mesma mensagem! "A conexão não pode ser usara para realizar esta operação. Ela é fechada ou inválida neste contexto."
....
|
|
TÓPICO EDITADO
|
|
|
|
PH1959
|
SÃO JOSÉ DOS CAMPOS
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 29/05/2008 16:07 hs
hmmm ...acho q vc abriu 2 x a mesma conexão... dá uma verificada no código |
|
|
|
