ACCESS INTERNET
Pessoal estou tentando fazer uma conexao e estou recebendo a seguinte mensagem
ERRO 8209 Erro de Servidor da Internet : Objeto Modulo Não encontrado
abri um novo Form e coloquei um botao dentro estou executando no click
Private Sub Command1_Click()
Set conn = New ADODB.Connection
Set Rec = New ADODB.Recordset
myconn = [Ô]Provider=MS Remote[Ô] & _
[Ô];Remote Provider=Microsoft.Jet.OLEDB.4.0[Ô] & _
[Ô];Data Source=C:\load\dados.mdb[Ô] & _
[Ô];Remote Server=http://USER.webng.com/data/dados.mdb[Ô] & _
[Ô];User Id=USER[Ô] & _
[Ô];Password=SENHA[Ô]
conn.Open myconn
Dim SQL As String
Dim rs As New ADODB.Recordset
SQL = [Ô]Select top 1 codigo from log order by codigo desc[Ô]
rs.Open SQL, myconn
txtcodigo.Text = rs([Ô]codigo[Ô])
End Sub
o que posso fazer para estar arrumando ?
Obg
Abs
Marcelo
ERRO 8209 Erro de Servidor da Internet : Objeto Modulo Não encontrado
abri um novo Form e coloquei um botao dentro estou executando no click
Private Sub Command1_Click()
Set conn = New ADODB.Connection
Set Rec = New ADODB.Recordset
myconn = [Ô]Provider=MS Remote[Ô] & _
[Ô];Remote Provider=Microsoft.Jet.OLEDB.4.0[Ô] & _
[Ô];Data Source=C:\load\dados.mdb[Ô] & _
[Ô];Remote Server=http://USER.webng.com/data/dados.mdb[Ô] & _
[Ô];User Id=USER[Ô] & _
[Ô];Password=SENHA[Ô]
conn.Open myconn
Dim SQL As String
Dim rs As New ADODB.Recordset
SQL = [Ô]Select top 1 codigo from log order by codigo desc[Ô]
rs.Open SQL, myconn
txtcodigo.Text = rs([Ô]codigo[Ô])
End Sub
o que posso fazer para estar arrumando ?
Obg
Abs
Marcelo
veja se agora funciona amigo MARCELOFAZAN
Private Sub Command1_Click()
Set conn = New ADODB.Connection
Set Rec = New ADODB.Recordset
myconn = [Ô]Provider=MS Remote[Ô] & _
[Ô];Remote Provider=Microsoft.Jet.OLEDB.4.0[Ô] & _
[Ô];Data Source=C:\load\dados.mdb[Ô] & _
[Ô];Remote Server=http://USER.webng.com/data/dados.mdb[Ô] & _
[Ô];User Id=USER[Ô] & _
[Ô];Password=SENHA[Ô]
[txt-color=#e80000]conn.ConnectionString = myconn
conn.CursorLocation = adUseClient[/txt-color]
conn.Open
Dim SQL As String
Dim rs As New ADODB.Recordset
SQL = [Ô]Select top 1 codigo from log order by codigo desc[Ô]
rs.Open SQL, myconn
txtcodigo.Text = rs([Ô]codigo[Ô])
End Sub
Private Sub Command1_Click()
Set conn = New ADODB.Connection
Set Rec = New ADODB.Recordset
myconn = [Ô]Provider=MS Remote[Ô] & _
[Ô];Remote Provider=Microsoft.Jet.OLEDB.4.0[Ô] & _
[Ô];Data Source=C:\load\dados.mdb[Ô] & _
[Ô];Remote Server=http://USER.webng.com/data/dados.mdb[Ô] & _
[Ô];User Id=USER[Ô] & _
[Ô];Password=SENHA[Ô]
[txt-color=#e80000]conn.ConnectionString = myconn
conn.CursorLocation = adUseClient[/txt-color]
conn.Open
Dim SQL As String
Dim rs As New ADODB.Recordset
SQL = [Ô]Select top 1 codigo from log order by codigo desc[Ô]
rs.Open SQL, myconn
txtcodigo.Text = rs([Ô]codigo[Ô])
End Sub
olá amigão como faço um teste para saber se estou conectado o firewall perdiu permissao e tal
só que qq SQL que tento fazer da o erro citado exemplo se eu executar esse comando abaixo o mesmo erro messa linha
SQL = [Ô]delete * from log[Ô]
Dim SQL As String
SQL = [Ô]delete * from log[Ô]
conn.Execute SQL
MsgBox [Ô]Deletados Todos os Registros [Ô]
é como se nao estivesse encontrando a tabela
só que qq SQL que tento fazer da o erro citado exemplo se eu executar esse comando abaixo o mesmo erro messa linha
SQL = [Ô]delete * from log[Ô]
Dim SQL As String
SQL = [Ô]delete * from log[Ô]
conn.Execute SQL
MsgBox [Ô]Deletados Todos os Registros [Ô]
é como se nao estivesse encontrando a tabela
MARCELOFAZAN retire o * (asterisco) após a instrução DELETE. Essa instrução não exige nada.
O correto é:
SQL = [Ô][txt-color=#e80000]DELETE FROM[/txt-color] log[Ô]
Alexandre
O correto é:
SQL = [Ô][txt-color=#e80000]DELETE FROM[/txt-color] log[Ô]
Alexandre
ola ok alexandre
pessoal quem tiver uma conexao valida de comunincar VB6 x ACCESS numa hospedagem e poder colar ??? ...
tambem especificar qual hospedagem free deu certo
Obrigado
pessoal quem tiver uma conexao valida de comunincar VB6 x ACCESS numa hospedagem e poder colar ??? ...
tambem especificar qual hospedagem free deu certo
Obrigado
Olá Nilson vlw a postagem
ja mexi no phpadmin que achei muito da hora e tambem tenho bons testes com strings de Mysql
só que a hospedagem tem que ser em ASP que é o que arranho de preferencia , acho que é meio dificil conhece alguma
voce sabe alguma hospedagem free mysql ??? me diz que dou uma olhada
necessito de alguns transactions estou enviando emails para tal finalidade
estou querendo subsituir o envio de emails , para insert de registros para depois poder usar select where
somente 1 tabela centralizando 3 campos de informacoes
queria tentar fazer isso !
preciso saber uma hospedagem que dá certo e a conexao o resto é um insert into
ja mexi no phpadmin que achei muito da hora e tambem tenho bons testes com strings de Mysql
só que a hospedagem tem que ser em ASP que é o que arranho de preferencia , acho que é meio dificil conhece alguma
voce sabe alguma hospedagem free mysql ??? me diz que dou uma olhada
necessito de alguns transactions estou enviando emails para tal finalidade
estou querendo subsituir o envio de emails , para insert de registros para depois poder usar select where
somente 1 tabela centralizando 3 campos de informacoes
queria tentar fazer isso !
preciso saber uma hospedagem que dá certo e a conexao o resto é um insert into
Tópico encerrado , respostas não são mais permitidas