PROCEDURE SQL NO VB-6

DANLEONHART 17/11/2011 23:26:59
#389343
Pessoal...

Como crio um PROCEDURE SQL e executo no VB-6 ?

Tipo, dessa maneira:
[txt-color=#0000f0][Ô]SELECT * FROM TABELA WHERE NOME=[ô][Ô] & var_Nome & [Ô][ô][Ô][/txt-color]

E que pudesse carregar os dados encontrados em um Grid...essa parte do Grid eu desenrolo...o pro é o PROCEDURE...
FILMAN 18/11/2011 01:48:09
#389347 
Public Sub stringSQL(ByVal sCampo as String)
    Dim SQL as String
    Dim Rst as New ADODB.RecorSet

    [ô]Pesquisa Para Utilizar Todos os Campos só é viável se for retornar os campos para preencher um FORM inteiro 
    SQL = [Ô]SELECT * FROM Tabela WHERE Coluna=[ô][Ô] & sCampo & [Ô][ô][Ô]


    [ô]Pesquisa Para Utilizar os Campos expecifico da Tabela economiza memória
    SQL = [Ô]SELECT Coluna1, Coluna2, Coluna3 FROM Tabela WHERE Coluna=[ô][Ô] & sCampo & [Ô][ô][Ô]

    Rst.Open SQL, SuaConexao, , adOpenForwardOnly, adLockReadOnly
End Sub

[ô]Para Chamar o procedimento
stringSQL(TxtNome.Text)



Vê se é isso que você quer
DANLEONHART 18/11/2011 08:08:00
#389350
Bem, na verdade eu queria usar o script do SQL no meu script VB-6, entende ?!
Tipo:
SELECT @Campo FROM DBO.TABELA... e por aí vai...
na verdade preciso fazer o SELECT só que na hora do WHERE a comparação entre o CAMPO do BD e a variável tem de ser por parâmetro...entende ?!
MGALDINO 18/11/2011 09:16:49
#389357
Voce pode fazer da mesma forma que Executa um comando.

Dim Sql as string

Sql = [Ô]Create Procedure PesquisaAlgo @Codigo as Select * From Tabela Where Codigo = @Codigo[Ô]
Executa pela vb da sua forma para criar a procedure


Sql = [Ô]Exec PesquisaAlgo @Codigo = [Ô] & Text1.text
Tópico encerrado , respostas não são mais permitidas
Voltar