|
|
Postada em 15/06/2005 10:58 hs
Galera, Quero fazer uma cosulta em um banco de dados mysql com os seguite caracteristica: Nome: Endereço: Telefone: Codigo: Quero digita em um textbox(textbusca). o codigo e se encontra exibir os dados na tela(textNome, TextEnd, textTel e textcodigo. Estou abrindo o BD assim(dica do forum VBWEB) Set cnn = CreateObject("ADODB.Connection")
cnn.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=myserver;PORT=3306;DATABASE=test;OPTION=3;"
Set Rs = CreateObject("ADODB.RecordSet")
Set Rs.ActiveConnection = cnn
Rs.Open "select * from TBL"
Marreiros
|
|
|
|
|
|
|
|
Postada em 15/06/2005 16:43 hs
Rs.Open "select * from TBL where codigo = " & txtbusca
|
|
|
|
|
|
Postada em 16/06/2005 09:00 hs
Não deu certo! quando a busca e texto da erro. E como exibir os dados nos textbox?
Marreiros
|
|
|
|
|
|
Postada em 16/06/2005 09:43 hs
Marreiros, bom dia.. Necessário se faz converte o dado de input ao padrão do campo na tabela. Se é numero o input tem que ser numerico, se é alfanumerico a codição deve esta entre aspas (simples ou duplas conforme o banco de dados). Rs.Open "select * from TBL where codigo = '" & txtbusca & "'"
|
|
|
|
|
|
Postada em 17/06/2005 14:05 hs
Ainda, Não consegui exibir os dados da busca em txtbox.
Marreiros
|
|
|
|
|
|
Postada em 17/06/2005 16:11 hs
é muito simples, se for buscar em um campo string faça o tratamento da aspa como segue:
Public Function Plic(ByVal sTexto As String) As _
String
If InStr(sTexto, Chr(39)) Then
Plic = Chr(39) & Replace(sTexto, _
Chr(39), Chr(39) & Chr(39)) & _
Chr(39)
Else
Plic = Chr(39) & sTexto & Chr(39)
End If
Plic = Replace(Plic, "*", "%")
End Function
criterio = plic(txt_nome) ' pega o conteudo do txt
SQL = "SELECT * FROM Tbl_Cadastro WHERE Nome LIKE " & criterio
RSTDados.Open SQL, Conexao, adOpenStatic, adLockOptimistic
txt_codigo = rstdados!código
txt_nome = rstDados!nome
txt_fone = rstdados!fonre
e ai pro diante...
|
|
|
|
