INICIANDO NO MYSQL

RICARDOGARCIA 15/01/2010 07:29:41
#331962
estou tentando usar o mysql como base. Instalei o mysql server 5.1
e tbem o mysql-connector-ODBC 5.1.6.
este ultimo tem manha pra instalar? pois o Install parece nao ter efeito
isso é tudo que preciso??
pois vou tentar abrir, mas dá que nome da fonte de dados nao encontrado e nenhum driver padrao especificado.
Grato...
MKING 15/01/2010 08:04:51
#331963
Como você está conectando?
mostre a string da conexão e fica melhor pra ajudar......
RICARDOGARCIA 15/01/2010 08:46:59
#331964

Dim strConnect As String
Dim strProvider As String

Dim strDataSource As String

Dim strDataBaseName As String

Dim usr_id As String [ô] identificacao do usuario para o banco de dados
Dim pass As String [ô] a senha (se tiver) para o banco de dados
Dim mySqlIP As String [ô] o endereco ip da maquina na qual esta o mySql
mySqlIP = [Ô]127.0.0.1[Ô] [ô] a localizacao do usuario (localhost)

usr_id = [Ô]macoratti[Ô] [ô] identificacao
pass = [Ô]numsey[Ô] [ô] senha
strConnect = [Ô]driver={MySQL};server=[Ô] & mySqlIP & [Ô];uid=[Ô] & usr_id & [Ô];pwd=[Ô] & pass & [Ô];database=clientes[Ô]

Set adoDataConn = New ADODB.Connection

adoDataConn.CursorLocation = adUseClient

adoDataConn.Open strConnect

lblStringdeConexao.Caption = strConnect

Set rsMySQL = New ADODB.Recordset
rsMySQL.CursorType = adOpenStatic

rsMySQL.CursorLocation = adUseClient

rsMySQL.LockType = adLockPessimistic
rsMySQL.Source = [Ô]Select * From clientes[Ô] [ô]altere para tabela que desejar

rsMySQL.ActiveConnection = adoDataConn
rsMySQL.Open
JESUEL.OLIVEIRA 17/01/2010 14:06:15
#332171
Amigo, olhe abaixo minha conexão,

  On Error GoTo Rotina_Erro


    SERVIDOR = GetIni([Ô]MySQL_Connect[Ô], [Ô]SERVIDOR[Ô], App.Path & [Ô]\MySQL.ini[Ô])
    PORTA = GetIni([Ô]MySQL_Connect[Ô], [Ô]PORTA[Ô], App.Path & [Ô]\MySQL.ini[Ô])
    USUARIO = GetIni([Ô]MySQL_Connect[Ô], [Ô]USUARIO[Ô], App.Path & [Ô]\MySQL.ini[Ô])
    SENHA = GetIni([Ô]MySQL_Connect[Ô], [Ô]SENHA[Ô], App.Path & [Ô]\MySQL.ini[Ô])
    BASE = GetIni([Ô]MySQL_Connect[Ô], [Ô]BASEDEDADOS[Ô], App.Path & [Ô]\MySQL.ini[Ô])
    
    CONN.Open [Ô]Driver={MySQL ODBC 5.1 Driver};Server=[Ô] & SERVIDOR & [Ô];Port=[Ô] & PORTA & [Ô];Database=[Ô] & BASE & [Ô];User=[Ô] & USUARIO & [Ô];Password=[Ô] & SENHA & [Ô];Option=3;[Ô]
    Exit Sub
Rotina_Erro:
    If Err.Number = 3705 Then
        
    End If
    If Err.Number = -2147467259 Then
        MsgBox [Ô]Banco de Dados não conectado ao servidor![Ô] & vbCrLf & vbCrLf & [Ô]Verifique[Ô] & vbCrLf & _
            [Ô]Conexão com a INTERNET[Ô] & vbCrLf & [Ô]Se o SERVIDOR DE DADOS esta ligado.[Ô], vbExclamation, [Ô]Verifique[Ô]
        End
    End If
Tópico encerrado , respostas não são mais permitidas
Voltar