Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
e ai pessoal beleza???toh batendo cabeça num erro e não consigo resolver..., o estranho é que sempre usei este método de conexão e nunca deu erro.mensagem de erro: "A conexão não pode ser usada para realizar esta operação ela esta fechada ou é invalida neste contexto."CODIGO:Public Sub Config(pedido As Double) Dim Cn As String Set rs = New ADODB.Recordset Cn = "DRIVER={MySQL ODBC 3.51 Driver};user=usuário;password=senha;server=servidor;database=database;option=20499" rs.Open "select..." <----- linha de erro ... rs.Close Set rs = Nothing Unload Me End Sub
Obrigado Dennys,Funcionou perfeitamente.
tenta assim:
Public Sub Config(pedido As Double)Dim Cn As StringDim Conexao as NEW ADODB.ConnectionSet rs = New ADODB.RecordsetCn = "DRIVER={MySQL ODBC 3.51 Driver};user=usuário;password=senha;server=servidor;database=database;option=20499"Conexao.Open Cnrs.Open "select...", Conexao, 3... rs.CloseSet rs = Nothing