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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Acessar mysql e código com um trecho que tem data
RicardoForte
BELO HORIZONTE
MG - BRASIL
ENUNCIADA !
Postada em 18/03/2006 13:50 hs         
Por, gentiza, caso alguem tenha um trecho de programação de como faço acessar o banco mysql e um trecho quando gravo ou seleciono uma data, tenho o sistema em acess, estou passando para mysql, esta faltando isso agora.
 
grato
 
ricardo oliveira
   
MARCONE
Pontos: 2843
BRASÍLIA
DF - BRASIL
ENUNCIADA !
Postada em 18/03/2006 15:31 hs            
Referencias: MyOdbc e Ado 2.8
 
Private Sub ConectarMysql()
On Error GoTo trata_erro
'***Definindo as strings de conexão:
Dim sNomeUsuario As String
Dim sPassword As String
Dim sBancoDados As String
Dim sHost As String
'***Atribuindo valores às strings de conexão:
sNomeUsuario = "root"
sPassword = "suasenha"
sBancoDados = "nomebancodados"
sHost = "localhost"
'***-------------------------------------------------------------
Me.MousePointer = vbHourglass
Set gConexao = New ADODB.Connection
gConexao.ConnectionTimeout = 60
gConexao.CommandTimeout = 400
gConexao.CursorLocation = adUseClient
gConexao.Open "DRIVER={MySQL ODBC 3.51 Driver};" _
                      & "user=" & sNomeUsuario _
                      & ";password=" & sPassword _
                      & ";database=" & sBancoDados _
                      & ";server=" & sHost _
                      & ";option=" & (1 + 2 + 8 + 32 + 2048 + 16384)
Me.MousePointer = vbNormal
If gConexao.State = 1 Then
     SaveSetting App.Title, "Settings", "sHost", sHost
     SaveSetting App.Title, "Settings", "sNomeUsuario", sNomeUsuario
     SaveSetting App.Title, "Settings", "sBancoDados", sBancoDados
     'MsgBox "Conecção efetuada com sucesso!!"
Else
   MsgBox "Não foi possível estabelecer a conexão. Verifique as configurações e tente novamente.", vbCritical, "Erro durante a conexão..."
End If
Exit Sub
trata_erro: MsgBox Err.Number & " " & Err.Description, vbCritical, "Erro durante a conexão..."
End Sub
 
'Abrindo a conexão com BdMySql...
SQL = "Select Comp, Cpf, Nome, CodRubrica, Total, BaseInss FROM tblbase"
pRs.Open SQL, gConexao, adOpenStatic, adLockOptimistic, adCmdText
'Limpando a tabela de destino...
SQL = "DELETE FROM tblbase"
gConexao.Execute SQL
 
Com relação a data, no mysql é bem parecido com o access. As diferencas sao as seguintes (Access => 01/12/1999) (MySql =>1999/12/01)

MarconeEmoções

 

   
RicardoForte
BELO HORIZONTE
MG - BRASIL
ENUNCIADA !
Postada em 19/03/2006 10:18 hs         
Marconi, grato pela atenção, vou tentar ver se da certo.
 
grato
 
ricardo oliveira
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

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

HTML DESLIGADO

     
 VOLTAR

  



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