VB SQL ACCESS - MOSTRAR PESQUISA NO TEXTBOX
Acredito que deste jeito da certo.Tente.
Queria saber do Kerplunk com funcionar o dr.GetString(dr.GetOrdinal([Ô]cidade[Ô]))
Não consegui usar.
Valeu.
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.CommandText = [Ô]SELECT cidade FROM [Tabela1] WHERE cliente = [ô][Ô] & TextBox1.Text & [Ô][ô];[Ô]
selcom.Connection = conect
Dim dr As OleDb.OleDbDataReader
dr = selcom.ExecuteReader()
While dr.Read()
TextBox2.Text = dr.Item(0)
End While
conect.Close()
Queria saber do Kerplunk com funcionar o dr.GetString(dr.GetOrdinal([Ô]cidade[Ô]))
Não consegui usar.
Valeu.
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.CommandText = [Ô]SELECT cidade FROM [Tabela1] WHERE cliente = [ô][Ô] & TextBox1.Text & [Ô][ô];[Ô]
selcom.Connection = conect
Dim dr As OleDb.OleDbDataReader
dr = selcom.ExecuteReader()
While dr.Read()
TextBox2.Text = dr.Item(0)
End While
conect.Close()
O método GetString, obtém o valor de um campo varchar de um DataReader
Na verdade eu quero construir um form inicial onde eu digito o nome do usuário no textbox1 e a senha no textbox2. O botão irá conferir se o usuário e senha conferem. Se alguém tiver alguma outra sugestão de código agradeço;
Vou pedir desculpa ao FAMIGERADO Kerplunk de plagiar.
Virei Guru!
Virei Guru!
OMAR E KERPLUNK AGRADEÇO. AGORA FUNCIONOU
Tópico encerrado , respostas não são mais permitidas