ACCESS 97 OK ACCESS 2003 FERRO
o lance é esse aÃ...
Tenho umas consultas em sql que funciona certinho no access 97, mais quando eu apenas converto o meu banco certo do access 97 para o access 2003 ele nao localiza nada no sql.
sql = [Ô]SELECT [03_ENTRADA].*, FORNECEDOR.RAZAO, FORNECEDOR.CGC, FORNECEDOR.IE, FORNECEDOR.ESTADO FROM (03_ENTRADA INNER JOIN FORNECEDOR ON [03_ENTRADA].FORNEC = FORNECEDOR.CODIGO) [Ô]
sql = sql & [Ô]where format(data,[ô]yyyy/mm/dd[ô]) between [ô][Ô] & Format(dT1, [Ô]YYYY/MM/DD[Ô]) & [Ô][ô] AND [ô][Ô] & Format(DT2, [Ô]YYYY/MM/DD[Ô]) & [Ô][ô][Ô]
Set snnf = db.OpenRecordset(sql, dbOpenSnapshot)
nao sei se fui bem claro mais é isto ae
Obrigado pela ajuda
Tenho umas consultas em sql que funciona certinho no access 97, mais quando eu apenas converto o meu banco certo do access 97 para o access 2003 ele nao localiza nada no sql.
sql = [Ô]SELECT [03_ENTRADA].*, FORNECEDOR.RAZAO, FORNECEDOR.CGC, FORNECEDOR.IE, FORNECEDOR.ESTADO FROM (03_ENTRADA INNER JOIN FORNECEDOR ON [03_ENTRADA].FORNEC = FORNECEDOR.CODIGO) [Ô]
sql = sql & [Ô]where format(data,[ô]yyyy/mm/dd[ô]) between [ô][Ô] & Format(dT1, [Ô]YYYY/MM/DD[Ô]) & [Ô][ô] AND [ô][Ô] & Format(DT2, [Ô]YYYY/MM/DD[Ô]) & [Ô][ô][Ô]
Set snnf = db.OpenRecordset(sql, dbOpenSnapshot)
nao sei se fui bem claro mais é isto ae
Obrigado pela ajuda
Bom THIAGO aqui no VBMANIA tem varios assuntos tratando o aspecto do banco de dados ACCESS
No seu caso o uso da CLASSE DAO ela só funciona com o Access 97 e antecessor portanto aconselho que migre para
ADO assim você poderá conectar até mesmo com o 2010
Conexão
Tenta aà e Vê se da certo
Lembrando que para usar ADO você deve adicionar a referencia
Microsft ActiveX Data Object 2.8 Library
A 2.7 também é boa mais é sempre bom usar o mais recente
No seu caso o uso da CLASSE DAO ela só funciona com o Access 97 e antecessor portanto aconselho que migre para
ADO assim você poderá conectar até mesmo com o 2010
Conexão
[ô]Declare em um modulo
Public cn As New ADODB.Connection
Public rs As New ADODB.Recordset
[ô]No Form LOAD
Private Sub Form_Load()
Dim sql As String
cn.CursorLocation = adUseClient [ô]Define o cursor como local
cn.Open [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[Ô] & App.Path & [Ô]\Banco.mdb[Ô] [ô]Abre o BD a partir da pasta origem do aplicativo
End Sub
[ô]No Botão
Private Sub CommandButton1_Click()
sql = [Ô]SELECT *, Fornecedor.Razao, Fornecedor.CGC, Fornecedor.IE, Fornecedor.Estado FROM Clientes INNER JOIN Fornecedor ON (Clientes.Fornec = Fornecedor.Codigo)[Ô]
sql = sql & [Ô]where format(data,[ô]yyyy/mm/dd[ô]) BetWeen [ô][Ô] & Format(dT1, [Ô]YYYY/MM/DD[Ô]) & [Ô][ô] AND [ô][Ô] & Format(DT2, [Ô]YYYY/MM/DD[Ô]) & [Ô][ô][Ô]
rs.Open sql, cn, 2, 3
End SubTenta aà e Vê se da certo
Lembrando que para usar ADO você deve adicionar a referencia
Microsft ActiveX Data Object 2.8 Library
A 2.7 também é boa mais é sempre bom usar o mais recente
mais tem como no mesmo projeto usar ado e dao??
legal saber isso pois queria mesmo saber como colocar o access 2010 nos meus sistemas.
legal saber isso pois queria mesmo saber como colocar o access 2010 nos meus sistemas.
Tem como usar os dois sim, mas não é aconselhavel. O Acess 2003 pode ser acessado pelo DAO, trocando a referência do DAO para •[txt-color=#e80000]Microsoft DAO 3.6 Object Library [/txt-color]
Nas propriedades do dataControl:
connect = Access 2000; ou Access 2003;
RecordsetType = 1 - Dynaset
Veja neste link a referência ms
Nas propriedades do dataControl:
connect = Access 2000; ou Access 2003;
RecordsetType = 1 - Dynaset
Veja neste link a referência ms
Tópico encerrado , respostas não são mais permitidas