DUVIDA SQL - RECORDSET IMPORTAR DADOS -

MENINAPOWERUSER 24/03/2010 09:31:45
#337781
BOM PESSOAL EU NOVAMENTE AQUI PEDINDO , SEGUITE ONTEM O AMIGO TECLA ME AJUDOU SIM ,
MAIS FOI PELO SEGUINTE EU CONECTO NO BANCO ESCREVO DELETO TUDO TRANQUILO .
MAIS A MINHA GRANDE DUVIDA E TRAZER OS DADOS DO SQL PARA TELA VB6 NO LISTVIEW , DATAGRID
EM QUALQUER UM PELO MENOS TRAZER O RESTO EU ME VIRO EU RODO ESSA ROTINA

[ô]Set CN = New ADODB.Connection
Set RS = New ADODB.Recordset
[ô]Set RS = CreateObject([Ô]ADODB.Recordset[Ô])
[ô]---------------------------[ô]
CONECTA
[ô]---[ô]
Dim sql As String

sql = [Ô]SELECT * FROM TABELA02[Ô]

RS.Open sql, CN, 2, 3
Set DataGrid1.DataSource = RS

EU USAVA ESSA SINTEXE NO ACESS , MAIS NO SQL ESTOU COM PROBLEMAS ALGUéM PODERIA ME PASSAR
UMA ROTINA OU MOSTRAR AONDE ESTÁ O ERRO !

DESDE JÁ AGRADEÇO
TECLA 24/03/2010 13:16:03
#337800
Qual é o erro?
MENINAPOWERUSER 24/03/2010 15:05:58
#337817
Citação:

:
Qual é o erro?




Dim SQL As String
SQL = [Ô]SELECT * FROM TABELA02[Ô]
RS.Open SQL, CN, 2, 1
[ô]PESQUISA[ô]
If Text6.Text = RS.Fields([Ô]CODIGO[Ô]) Then
MsgBox [Ô]opa[Ô]
Else
CN.Execute [Ô]INSERT INTO TABELA02(CODIGO,NOME,TELEFONE,CIDADE,EMAIL) VALUES ([Ô] & [Ô][ô][Ô] & Text6.Text & [Ô][ô][Ô] & [Ô] ,[Ô] & [Ô][ô][Ô] & Text1.Text & [Ô][ô][Ô] & [Ô],[Ô] & [Ô][ô][Ô] & Text3.Text & [Ô][ô][Ô] & [Ô],[Ô] & [Ô][ô][Ô] & Text2.Text & [Ô][ô][Ô] & [Ô],[Ô] & [Ô][ô][Ô] & Text4.Text & [Ô][ô][Ô] & [Ô] )[Ô]
End If

RS.Close


NAUM TRAZ O RETORNO
TECLA 24/03/2010 20:52:20
#337834
Se você fizer o SELECT dentro do Management do SQL, retorna algum registro?
MENINAPOWERUSER 25/03/2010 16:36:35
#337886
PRONTO TECLA EU RESOLVI TUDO AGORA
AO TERMINA O PROJETO TRAGO A SOURCE !
Tópico encerrado , respostas não são mais permitidas
Voltar