FAZER PESQUISA NO BANCO DE DADOS AJUDEM
Estou com um problema eu tenho um Form para cadastro de Usuario, e na hora de salvar o cadastro eu gostaria que houvesse uma pesquisa no banco de dados e no campo do nome verificasse se nao ha nenhum nome igual ja cadastrado... me ajudem se alguem souber como faz isso :
obrigado
obrigado
Coloque este código no botão salvar antes de chamar a função salvar....
Dim Cnn as New AdoDb.Connection
Dim Rs As New ADODB.Recordset
Dim Prov as String
Dim Sql as String
Prov = "provider = microsoft.jet.oledb.4.0; data source = C:\Dados.Mdb"
Cnn.Open Prov
Sql = "Select Nome from TabelaDesejada where Nome = '" & CampoNome.Text & "'"
Dep.open Sql
if Dep.RecordCount > 0 then
MsgBox "Nome já cadastrado", vbinformation,"Aviso"
Dep.Close
Cnn.Close
Exit Sub
end if
Dep.Close
Cnn.Close
Ah, ia me esquecendo, você tem de fazer referencia aoMicrosoft ActivX Data Objects 2.8 Library
Espero que isso resolva seu problema.
Dim Cnn as New AdoDb.Connection
Dim Rs As New ADODB.Recordset
Dim Prov as String
Dim Sql as String
Prov = "provider = microsoft.jet.oledb.4.0; data source = C:\Dados.Mdb"
Cnn.Open Prov
Sql = "Select Nome from TabelaDesejada where Nome = '" & CampoNome.Text & "'"
Dep.open Sql
if Dep.RecordCount > 0 then
MsgBox "Nome já cadastrado", vbinformation,"Aviso"
Dep.Close
Cnn.Close
Exit Sub
end if
Dep.Close
Cnn.Close
Ah, ia me esquecendo, você tem de fazer referencia aoMicrosoft ActivX Data Objects 2.8 Library
Espero que isso resolva seu problema.
pow cara s vc usa DAO3.6 como referencia, vc faz o seguinte:
tabela.seek "=", txtnome.text
if tabela.nomath then ' se naum achou o registro...
'cadastra
else
' msgbox "Já existe nome cadastrado"
end if
espero q tenha ajudado!!!!!!!!!
tabela.seek "=", txtnome.text
if tabela.nomath then ' se naum achou o registro...
'cadastra
else
' msgbox "Já existe nome cadastrado"
end if
espero q tenha ajudado!!!!!!!!!
So pra complementar a resposta do tiago antes de fazer
tabela.seek "=", txtnome.text
faz assim
tabela.index = "NomeDoIndice"
tabela.seek "=", txtnome.text
tabela.seek "=", txtnome.text
faz assim
tabela.index = "NomeDoIndice"
tabela.seek "=", txtnome.text
Tópico encerrado , respostas não são mais permitidas