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]
|