VB SQL ACCESS - MOSTRAR PESQUISA NO TEXTBOX

GILBERTOJW 27/11/2012 17:14:51
#414886
Pessoal por favor. Tenho textbox1, textbox2, e 1 botão, onde escrevo no textbox1 o nome de um cliente de meu banco de dados, e ao clicar no botão, efetua-se uma pesquisa neste banco access .mdb chamado VBA-VBTEXTE, com tabela chamada [Ô]Tabela1[Ô] e campo1 sendo [Ô]cliente[Ô] e campo2 sendo [Ô]cidade[Ô]. Preciso que o resultado apareça no textbox2. Estou usando o código abaixo. Porque não vejo o resultado no textbox2 ?

Dim connS As String
connS = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\VBA-VBTEXTE.mdb;[Ô]
Dim conect As New OleDb.OleDbConnection

conect.ConnectionString = connS
conect.Open()

Dim selcom As New OleDb.OleDbCommand
selcom.Connection = conect
selcom.CommandText = [Ô]SELECT cidade FROM [Tabela1] WHERE cliente = [ô][Ô] & TextBox1.Text & [Ô][ô];[Ô]

TextBox2.Text = selcom.ExecuteScalar()

conect.Close()

Aguardo uma ajuda
KERPLUNK 27/11/2012 17:26:34
#414888 Resposta escolhida 
  
Dim connS As String
        connS = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\VBA-VBTEXTE.mdb;[Ô]
        Dim conect As New OleDb.OleDbConnection

        conect.ConnectionString = connS
        conect.Open()

        Dim selcom As New OleDb.OleDbCommand
        selcom.Connection = conect
        selcom.CommandText = [Ô]SELECT cidade FROM [Tabela1] WHERE cliente = [ô][Ô] & TextBox1.Text & [Ô][ô];[Ô]

        Dim dr As New OleDb.OleDbDataReader = selcom.ExecuteReader()
        TextBox2.Text = dr.GetString(dr.GetOrdinal([Ô]cidade[Ô]))
        conect.Close()
GILBERTOJW 28/11/2012 09:13:23
#414920
Caríssimo muito obrigado. Bye
KERPLUNK 28/11/2012 09:15:30
#414921
Ok, de nada. Por favor, feche o tópico.
GILBERTOJW 28/11/2012 14:20:43
#414958
Meu jovem KERPLUNK veja como pode ser resolvido o que escrevo abaixo por favor.

Apliquei seu código, mas apresentam-se dois erros:


Dim dr As New OleDb.OleDbDataReader = selcom.ExecuteReader()

Na linha indicada acima fica um tracejado azul embaixo do sinal de igual até o fim da linha.

TextBox2.Text = dr.GetString(dr.GetOrdinal([Ô]cidade[Ô]))

E nesta outra linha fica o mesmo tracejado embaixo das duas indicações [Ô]dr[Ô]

Como devo agir ?
KERPLUNK 28/11/2012 14:25:40
#414959
Experimente passar o mouse por cima da linha e leia a mensagem que aparece...
GILBERTOJW 28/11/2012 14:31:13
#414960
No primeiro caso [Ô]End of statement expected[Ô] e no segundo [Ô]Name dr is not declared
KERPLUNK 28/11/2012 14:36:58
#414961
1 - Seria bom você entender o que é esta exception, ela é bem comum
2 - Tente assim:

  
        Dim connS As String
        connS = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\VBA-VBTEXTE.mdb;[Ô]
        Dim conect As New OleDb.OleDbConnection

        conect.ConnectionString = connS
        conect.Open()

        Dim selcom As New OleDb.OleDbCommand
        selcom.Connection = conect
        selcom.CommandText = [Ô]SELECT cidade FROM [Tabela1] WHERE cliente = [ô][Ô] & TextBox1.Text & [Ô][ô];[Ô]

        Dim dr As New OleDb.OleDbDataReader
        dr = selcom.ExecuteReader()
        TextBox2.Text = dr.GetString(dr.GetOrdinal([Ô]cidade[Ô]))
        conect.Close()
GILBERTOJW 28/11/2012 14:48:28
#414963
Agora o tracejado ficou no dr da linha abaixo ( só neste ponto )

Dim dr As New OleDb.OleDbDataReader
ROBSON220BASS 28/11/2012 17:39:55
#414980
veja se voce declarou isso no inicio do codigo antes da classe do form

Imports System.Data.OleDb
GILBERTOJW 29/11/2012 08:27:35
#414996
Mudei a linha de posição mas mesmo assim continua indicando o mesmo problema com a seguinte indicação : Type [ô]System.Data.OleDb.OleDbDataReader[ô] has no constructor[ô]

Obrigado;
Página 1 de 2 [15 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar