Totodile 0 Denunciar post Postado Maio 5, 2005 Preciso de ajuda rápido... muito urgente, quem souber por favor me ajude... ei entendo algo de VB, mas preciso trabalhar com Delphi, mas também sei bastante coisa... a unica coisa q ta pegando feio é banco de dados... especialmente em ACCESS... exemplo no VB: Set conexao = New ADODB.Connection Set rs = New ADODB.Recordset strArquivo = "banco.mdb" strLocal = App.Path Set conexao = CreateObject("ADODB.Connection") ConectaAccess = "Driver={Microsoft Access Driver (*.mdb)};" & "Dbq=" & strArquivo & ";" & "DefaultDir=" & strLocal & ";" conexao.Open ConectaAccess como fazer isso em delphi??? conectar e funções em códigos... mas precisa ser em códigos... componentes naum iam ajudar :( por favor.. alguém??? Compartilhar este post Link para o post Compartilhar em outros sites
hcbento 0 Denunciar post Postado Maio 6, 2005 Primeiro passo: Va ate a paleta ADO e adicione os seguintes componetes - ADOConnection - ADOCommand - ADODataSet Segundo passo: //Se o seu BD nao tiver senha use esse parametro ADOConnection.LoginPrompt:=false; ADOConnection.Provider:= 'Microsoft.Jet.OLEDB.4.0'; ADOConnection.ConnectionString :='DataSource= caminho do seu BD '; ADOConnection.Open; ADOConnection.Connected:=True; Terceiro passo: Se você fazer uma consulta a tabelas ou seja retornar algum valor (select) você deve usar o ADODataSet ADODataSet.Connection:= ADOConnection; ADODataSet.CommandText:='select * from cliente'; ADODataSet.Open; Agora se você quizer apenas realizar um opreção na tabela (insert,delete,upload) você vai usar o ADOCommand ADOCommand.Connection:= ADOConnection; ADOCommand.CommandText:='insert into cliente(nome) values(" roberto")'; ADOCommand.Execute; Nao esqueça de fechar a conexao no final ADOConnection.Close; ADOConnection.Connected:=false; Espero que eu tenha te ajudado....OK Compartilhar este post Link para o post Compartilhar em outros sites