|
|
Postada em 23/09/2010 19:44 hs
Pessoal pesso a ajuda de vcs, nao aguento mais quebra a cabeça pra fazer isso.
Eu uso assim nos meus programas
'declarations
Dim ws As Workspace
Dim db As Database
Dim tb As Recordset
'Load do Form
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase(CaminhoBD & "AudioClin.mdb")
Set tb = db.OpenRecordset("Select * from tabExames order by Nome_Exame Asc")
'Botao de Novo Registro
tb.AddNew
'Botao de Salvar Registro
tb.Fields("Codigo_Exame") = Format(CodigoExame, "000000")
tb.Fields("Nome_Exame") = TextoExame
tb.Update
MsgBox "ALTERAÇÕES SALVAS COM ÊXITO!", vbInformation
'Botao de Excluirr Registro
tb.delete
FUNCIONA TUDO PERFEITO, SO QUE EU ESTOU AGORA TRABALHANDO COM MYSQL USANDO O PHPMyAdimin certo.
Teria como eu Mudar somente a String de Conexão, para que eu nao precise mudar o resto dos meu codigos nos Botoes e outros eventos?
|
|
|
|
|
|
|
|
Postada em 23/09/2010 21:14 hs
Eu to tentando fazer assim mais pelo jeito vou ter que mudar toda a minha conexao.
Dim Ssql As String
Dim cnn As ADODB.Connection
Dim Rs As Recordset
Private Sub cmdSair_Click()
Unload Me
End Sub
Private Sub cmdSalvar_Click()
Dim Codigo As String
Dim Usuario As String
Dim Email As String
Dim Nome As String
Dim Senhas As String
Dim ConfirmaSenha As String
Codigo = txtCodigo.Text
Usuario = txtUsuario.Text
Email = txtEmail.Text
Nome = txtNome.Text
Senha = txtSenha.Text
ConfirmaSenha = txtConfirmaSenha.Text
If ConfirmaSenha <> Senhas Then
MsgBox "Senha não confere.", vbExclamation
Exit Sub
End If
'Ssql = "insert into Login (Codigo_Usuario, Usuario, Email, Nome, Senha) values (' " & Codigo & " ',' " & Usuario & " ',' " & Email & " ',' " & Nome & " ',' " & Senha & " ')"
'cnn.Execute Ssql
MsgBox "Registro inserido com sucesso!", vbInformation
End Sub
Private Sub Form_Load()
Set cnn = CreateObject("ADODB.Connection")
'**** abrindo conexão
cnn.Open "DRIVER={MySQL ODBC 5.1 Driver};server=localhost;uid=root;pwd=;database=controlfacil"
'**** criando recordset DRIVER={MySQL ODBC 5.1 Driver}
Set Rs = CreateObject("ADODB.RecordSet")
'**** efetuando conexão do recordset
Set Rs.ActiveConnection = cnn
Rs.Open "select * from Login"
End Sub
|
|
|
|
Juan Carlos R.A
não registrado
|
|
Postada em 24/09/2010 09:05 hs
isso so muda a conexao com mysql, o resto todo igual, blz
|
|
|
|
|
|
Postada em 24/09/2010 10:01 hs
Juan Carlos, Ja tentei mais nao da certo por exemplo: Private Sub Form_Load()
Set cnn = CreateObject("ADODB.Connection")
'**** abrindo conexão
cnn.Open "DRIVER={MySQL ODBC 5.1 Driver};server=localhost;uid=root;pwd=;database=controlfacil"
'**** criando recordset DRIVER={MySQL ODBC 5.1 Driver}
Set Rs = CreateObject("ADODB.RecordSet")
'**** efetuando conexão do recordset
Set Rs.ActiveConnection = cnn
Rs.Open "select * from Login"
End Sub
'No botao Salvar rs.addNew rs.Fieldes("Nome") = txtNome.text rs.Fieldes("Usuario") = txtUsuario.text rs.Update Tentei fazer assim mais da um erro dizendo que nao é compativel. |
|
|
|
Juan Carlos R.A
não registrado
|
|
Postada em 24/09/2010 10:41 hs
olha entao tem que mudar para ado assim
Dim cnn As neew ADODB.Connection
Dim Rs As new adodb.Recordset
Cnn.ConnectionString ="driver={MySQL};server=ipservidor;database=bancodados;uid=root;pwd=;"
cnn.Open
'para abrir recordset de tabelas
Rs=cn.execute("select * from tabela where condicao")
'para gravar
cn.execute "insert into Login (Codigo_Usuario, Usuario, Email, Nome, Senha) values (' " & Codigo & " ',' " & Usuario & " ',' " & Email & " ',' " & Nome & " ',' " & Senha & " ')"
rs.requery
rs.close
set rs=nothing
|
|
|
|
|
|
Postada em 24/09/2010 10:47 hs
certo, vou tentar assim entao. vlw |
|
|
|
