CONEXAO

USUARIO.EXCLUIDOS 26/04/2007 10:14:06
#213816
Boa tarde amigos

sou novato em .net, estou desenvolvendo um projeto desktop, utilizando SQLSERVER

criei a variavel de conexão cnn as new SlqConnection

Preciso criar uma função que verifica se já existe o nome de um arquivo na tabela arq

public function Verifica(nome as string)
        Dim dr As SqlDataReader
        Dim myCMD As New SqlCommand
        
         Agora minha dúvida é como seria o procedimento certo para fazer a minha verificação?

algúem pode me ajudar?

end Function
USUARIO.EXCLUIDOS 26/04/2007 10:36:01
#213826
pessoal?
alguem sabe tambem como me conecto a uma base sql server?
RODRIGOGBGOMES 26/04/2007 12:33:31
#213860
bom, pelo q to entendo... vc qr dar um select na tabela "arq" e ver se existe um arquivo.

bom se for isso...
é o seguinte..

"Select * From Arq Where SeuField ='" & SuaVariavel & "'"
USUARIO.EXCLUIDOS 26/04/2007 14:37:21
#213887
Ver se isso ajuda.

Criei uma function que retorna um boolean, caso o nome do arquivo exista na tabela.

Obs.: a instrução sql, está levando em consideração que só exista uma ocorrência do nome do arquivo, se tiver mais, você pode adaptar com o LIKE.

Você chama a função passando o nome do arquivo.

If ExisteArquivo(<nome do aquivo>) Then
MsgBox("Arquivo já está cadastrado")
Else
'aqui você trata conforme sua vontade.
Endif

Public Function ExisteArquivo(ByVal NomeArquivo As String) As Boolean
    'Conexão com SQLServer
    'Substitua as referidas tags <> pelo conteúdo que você utiliza
    Dim strConexao = "Data Source=<nome do servido>;Initial Catalog=<nome do banco>;Integrated Security=False;User id=<nome do usuário>"
    
    Dim ds As New DataSet
    Dim da As New SqlClient.SqlDataAdapter("SELECT NomeArquivo FROM MinhaTabela WHERE NomeArquivo = '" & NomeArquivo & "'", strConexao.Trim)
    
    da.SelectCommand.CommandType = CommandType.Text
    da.Fill(ds)
    
    If ds.Tables(0).Rows.Count = 0 Then
        Return False
    Else
        Return True
    End If
End Function
Tópico encerrado , respostas não são mais permitidas
Voltar