|
|
Postada em 05/12/2012 17:33 hs
Consegui fazer a conexão conforme código abaixo, qual o código para acessar uma tabela no Msql ? e poder atualizar etc... Agradeço a quem puder ajudar.
Set db = CreateObject("ADODB.Connection")
db.Open "Driver={MySQL ODBC 3.51 Driver};Server=Localhost;Port=3306;Database=Agenda;User=root;Password=513789;Option=3;"
no Access faço assim
Set telefones = db.OpenRecordset("telefones ")
|
|
|
|
|
|
TOMAZELLA
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 11/12/2012 17:06 hs
dim rsTabela as new RecordSet
Set rsTabela = nothing
rsTabela.open "SELECT * FROM tabela WHERE campo = true ORDER BY campo"
|
|
|
|
TOMAZELLA
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 11/12/2012 17:08 hs
Esqueci uma coisa
rsTabela.open "SELECT * FROM tabela WHERE campo = true ORDER BY campo",db, adOpenStatic, adLockReadOnly
As condições de adOpenStatic e adLockReadOnly vc pode estar estudando e ver qual a melhor condição para seu uso ..
Abraço
|
|
|
|
|
|
Postada em 12/12/2012 11:14 hs
Obrigado TOMAZELLA. Se você tiver um exemplo bem simples em que você exibe, atualize e exclua registros VB6 e Mysql,, eu agradeço se puder me enviar.
att.
Ivan
|
|
|
|
|
|
Postada em 12/12/2012 14:23 hs
fiz a função mostrar para exibir dados em um form. Todavia quando desejo mudar para o próximo registro, não consigo através do comando:
rst.movenext. Em meus programas uso o objeto DAO, por isto não aprendi ainda o ado. Se você puder dar uma ajuda fico muito grato.
att.
Ivan
Set db = CreateObject("ADODB.Connection")
db.Open "Driver={MySQL ODBC 3.51 Driver};Server=Localhost;Port=3306;Database=Agenda;User=root;Password=513789;Option=3;"
'
Dim rst As New ADODB.Recordset
Dim fld As ADODB.Field
'
rst.Open "Select * from telefones ", db
txtnome = rst!nome
txtendereço = rst!endereço
txtcidade = rst!cidade
txtbairro = rst!bairro
txtCep = rst!cep
txttelefone = rst!telefone
txtaniversário = rst!aniversário
txtemail = rst!email
End Sub
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 12/12/2012 16:36 hs
veja este exemplo só mude a string de conexão
em um módulo cole
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 = "db1.host.sk"
BD = "gcmsv"
PORTA = "3306"
USER = "trezevb"
SENHA = "1027bhe"
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
feito isto basta colocar o seguinte noi load do form Principal
Private Sub Form_Load()
Conecta True
End Sub
e no Unload
Private Sub Form_Unload(Cancel As Integer)
Conecta False
End Sub
pronto agora em qualquer evento você pode fazer sua consulta
eu utilizo desta forma
para consulta
SQL = "SELECT * FROM tabela WHERE campo = '" & critério & "'"
Set RS = Conexao.Execute(SQL)
Text1.Text = RS!Nome
para inserir excluir e alterar é assim
'inserir
Conexao.Execute("INSERT INTO tabela (campo1,campo2) VALUES ('valor1','valor2')")
'Alterar
Conexao.Execute("UPDATE tabela SET campo1 = 'novovalor1', campo2 = 'novovalor2' WHERE campo1 = 'Critério'")
e assi vai faça o teste
|
|
|
|
