USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Sobre VB + MYSQL ( Verificar existencia )
vincity
CARDOSO
SP - BRASIL
Postada em 01/04/2008 04:28 hs            
( iniciando em VB + MYSQL )
Pergunta 1
como eu faria para exibir o resultado em um label ou listbox ?


Pergunta 2
Como faria para verificar antes de inserir dados ( se ja existe o e-mail ou nao )





[code]

    Private Sub cmdCon_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCon.Click
        If cmdTxtNome.Text = Nothing Then
            MsgBox("Escreva seu nome")
        Else

            If cmdTxtEmail.Text = Nothing Then
                MsgBox("Escreva seu Email")
            Else






                If Not conn Is Nothing Then conn.Close()
                Dim connStr As String
                connStr = String.Format("server={0};user id={1}; password={2}; database=mysql; pooling=false", _
            "localhost", "admin", "102030")

                Try
                    conn = New MySqlConnection(connStr)
                    conn.Open()
                    conn.ChangeDatabase("cadastro")
                    data = New DataTable





                    'Inserindo dados
                    da = New MySqlDataAdapter("INSERT INTO clientes " & _
                "(Nome, email) " & _
                " VALUES (" & _
                "'" & cmdTxtNome.Text & "', " & _
                "'" & cmdTxtEmail.Text & "'" & _
                ")", conn)

                    cb = New MySqlCommandBuilder(da)




                    da.Fill(data)


                Catch ex As MySqlException
                    MessageBox.Show("Error connecting to the server: " + ex.Message)
                End Try
            End If
        End If
    End Sub
[/code]
TÓPICO EDITADO
   
vilmarbro
Pontos: 2843
SAO PAULO
SP - BRASIL
Postada em 02/04/2008 18:54 hs         
esta pergunta é de VB.Net.
favor postar no outro fórum !!
 
e no  mais, basta vc fazer a conexão corretamente e atribuir os valores pros controles que desejar:
txtNome.text = CStr(objRS!Campo)
txtNome2.text = CStr(objRS.Field("Campo")
 
     
vincity
CARDOSO
SP - BRASIL
ENUNCIADA !
Postada em 02/04/2008 18:58 hs            
a conexao faz com sucesso
e tudo mais
o problema é que se eu quiser fazer 20000 registros iguais ele faz e nem reclama de nada.
( na tabela uso ID auto acrescent )


Projeto: SlaveHack Tools ( Projeto para aprendizado proprio )
Utilizando: VB 2008
Database: MySQL
Proximos updates
include txt base suport
MySQL only for update txt bases
Arquivos para traducao [ini ?]
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página