MYSQL E VB6

ICEMAN 03/01/2011 19:56:57
#360994
Boa noite galera.

Estou iniciando no mysql com vb6.

Só que assim estou apanhando muito, tenho algumas duvidas.

Existe algum programa para criar meu db e minhas tabelas do mysql?

Eu baixei o mysql front mais quando crio algum db por ele nem sei para aonde o mesmo vai.

na hora de criar o db ele pede o collation e so charset.

charset acredito ser latin1 e o collation?

grato desde já
ADHEL 03/01/2011 20:16:44
#360995
esses dois links me ajudaram muito
Dá uma olhada
http://www.devmedia.com.br/post-7021-Conhecendo-o-MySQL-Front-Parte-1.html
http://www.las.pucpr.br/mcfmello/BD/BD-Aula04-MySQLfront%2BtiposDadosSQL.pdf
XXXANGELSXXX 03/01/2011 20:50:43
#360997 Resposta escolhida
fala ai Iceman.. veja so, eu utilizo o mysql guii tools, que é da propria mysql para manutençao das tabelas(banco de dados)
ICEMAN 03/01/2011 20:57:03
#360998
Eu consegui criar o banco, tipo assim eu crio tudo pelo mysql front ai ele me dá a opção de exportar para arquivo .sql.

depois de exportar eu tenho que fazer alguma coisa ou posso simplesmente usar esse arquivo como db?
TRTNCG 03/01/2011 21:04:36
#360999
Eu utilizo o SQLYog para manipulação da base de dados, Criar tabelas, views, procedures e etc. Gosto muito dele. Mas existem vários: MySQL Front, DB Manager, etc
MARCELO.TREZE 03/01/2011 21:06:30
#361000
vc não precisa exportar, na realidade vc cria o seu banco com seus campos.

depois é só usar o ODBC driver da versão do Mysql que instalou e fazer a conexão.

OMySQL não cria um arquivo igual ao access tipo banco.mdb

veja bem....

primeiro você precisa Baixar o MySQL 5.0 ou 5.1, e tambem baixar o ODBC Driver 3.51 no caso do Mysql 5.0 e o ODBC driver 5.1 no caso de ser o MySQL 5.1

feito isto no VB6 você vai em references / Microsoft ActiveX 2.X Object Library.

e Fara a conexão com a Seguinte String

coloque um módulo em seu projeto e cole o seguinte

Public Conexao As New ADODB.Connection
 
Public Function Conecta(ByVal Valor As Boolean)
Dim CON_STR As String
Dim SERVER As String
Dim USER As String
Dim SENHA As String
Dim PORTA As String
Dim BD As String
[ô]verifica se a conexao está aberta e fecha para evitar erros
If Conexao.State = 1 Then
Conexao.Close
Set Conexao = Nothing
Valor = True
End If
If Valor = True Then
SERVER = [Ô]localhost[Ô] 
BD = [Ô]nome_do_banco_de_dados[Ô]
PORTA = [Ô]3306[Ô]
USER = [Ô]root[Ô]
SENHA = [Ô]Senha_do_Banco[Ô]
CON_STR = [Ô]DRIVER={MySQL ODBC 3.51 DRIVER};[Ô] _
& [Ô]Server=[Ô] & SERVER & [Ô];[Ô] _
& [Ô]Port=[Ô] & PORTA & [Ô];[Ô] _
& [Ô]Database=[Ô] & BD & [Ô];[Ô] _
& [Ô]UID=[Ô] & USER & [Ô];[Ô] _
& [Ô]PWD=[Ô] & SENHA & [Ô];[Ô] _
& [Ô]Option=3;[Ô]
With Conexao
.CursorLocation = adUseClient
.ConnectionString = CON_STR
.Open CON_STR
End With
Else
Conexao.Close
Set Conexao = Nothing
End If
End Function


Lembrando que a função acima eu criei para facilitar a conexão.

então vamos ao Proximo Passo.

* Como usar a função Conecta

No Load do Form Principal Coloque

Private Sub Form_Load()
Conecta True[txt-color=#007100] [ô]Abre a Conexão com o Banco de dados[/txt-color]
End Sub


e No UnLoad coloque

Private Sub Form_Unload(Cancel As Integer)
Conecta False [txt-color=#007100][ô]Fecha a Conexão com o banco[/txt-color]
End Sub


Bom agora para Fazer consulta basta ser desta forma

alguns gostam de declarar os recordsets no módulo, porém particularmente prefiro declara-lo somente na funçao que irei usar, assim eu poupo trabalho de ficar criando varias recordset.

entào por exemplo se eu precisar fazer um botão de consulta seria assim

Private Sub BtnConsulta_Click()
Dim RS As RecordSet
Dim mSQL As String
mSQL = [Ô]Select * From Tabela Where idade = [ô][Ô] & txtCampo.Text & [Ô][ô][Ô]
Set RS = Conexao.Execute(SQL)
Do While Not RS.EOF
ListResut.Additem RS!Nome& [Ô] - [Ô] & RS!Idade
RS.MoveNext
Loop
End Sub


Acima fiz uma consulta simples que exibe varios resultados em um listbox (ListResult) todos com uma idade X que determino do Textbox (txtCampo).

o resultado será este

João - 36
Pedro - 47
Joaquim - 28

agora se a consulta for retornar apenas um list box vc terá de faze-lo desta forma

Private Sub BtnConsulta_Click()
Dim RS As RecordSet
Dim mSQL As String
mSQL = [Ô]Select * From Tabela Where Nome = [ô][Ô] & txtCampo.Text & [Ô][ô][Ô]
Set RS = Conexao.Execute(SQL)
If Not RS.EOF Then [ô]EOF é o fim do registro, 
                                   [ô]então se não chegar ao fim os dados existem
lblNome.Caption = RS!Nome
lblIdade.Caption = RS!Idade
Else [ô]caso contrário exibe a mensagem
Msgbox [Ô]O Nome pesquisado não existe![Ô]
End If
End Sub


Ensinei a consultar agora vou explicar como alterar inserir e excluir

Primeiro como incluir dados no Banco

Para incluir dados no banco não há necessidade de se declarar um recordset isto pode ser feito diretamente.

ex:

Conexao.Execute ([Ô]Insert Into tabela (campo1,campo2,campo3) values ([ô]valor1[ô], [ô]valor2[ô], [ô]valor3[ô])[Ô])


para alteracao

Conexao.Execute ([Ô]Update Tabela Set Campo1 = [ô]novovalor1[ô], Campo2 = [ô]Novovalor2[ô], campo3 = [ô]novovalor3[ô] Where Campo1 = [ô]valorantigo1[ô][Ô])


e pro fim para exclusão

Conexao.Execute ([Ô]Delete From tabela Where Campo1=[ô]indice_a_ser_excluido[ô][Ô])


e pronto vc já pode começara programar vb6 com MySQL

Boa sorte
ADHEL 03/01/2011 21:07:48
#361001
Quando vc cria o banco pelo mysql front pronto é só conectar.Não há necessidade de exportar,a não ser que vc quer colocar esse mesmo banco em outro pc,fazer backup .Quando eu estava no trabalho nas horas vagas (inventava meus projetos) depois exportava o banco e enviava por email.Chegava em casa e importava esse mesmo arquivo pelo mysql front.
Dá uma olhada nesse tópico
http://vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=353973&varWorld=(Para mim pareceu que vc está com essa dúvida)

ps.é obvio que depois do banco a gente cria as tabelas.
Até
XXXANGELSXXX 03/01/2011 21:45:25
#361005
ai amigo, testa ai..
Tópico encerrado , respostas não são mais permitidas
Voltar