Salve a todos,
O pouco que sei aprendi aqui neste forum com a ajuda de algumas pessoas, muita coisa construi copiando de projetos prontos, so fiz adaptações e ai esta meu problema, tem coisas que tenho funcionando mas não entendo ainda o funcionamento.
Meu projeto principal tem um banco de dados que para rodar tem que estar sempre na mesma pasta do projeto, gostaria de entender e aprender como deslocar este banco de dados para outras pastas da maquina e tambem como disponibilizar em rede para outras maquinas.
Estudando meu projeto, entendi que o responsavel pela ligação e esta rotina aqui certo???
Private Function PreecheRecordSet1(ByVal RazaoSocial As String, _
ByVal CNPJ As String, _
ByVal Endereço As String, _
ByVal Numero As String, _
ByVal Telefone As String, _
ByVal Contato As String) As Recordset
On Error GoTo TrataErro
Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sql As String
Dim sqlWhere As String
Dim sqlOrderBy As String
Dim i As Integer
Dim campo As Field
Dim myArray() As Variant
Set conn = New ADODB.Connection
With conn
.Provider = "Microsoft.JET.OLEDB.4.0"
.ConnectionString = "Data Source=" & caminhoArquivoDados & ";Extended Properties=Excel 8.0;"
.Open
End With
sql = "SELECT * FROM [BDClientes$]"
'faz a união da string SQL com a cláusula ORDER BY
If cboOrdenarPor.ListIndex <> -1 Then
sqlOrderBy = " ORDER BY " & cboOrdenarPor.List(cboOrdenarPor.ListIndex, 0)
'define a direção
Select Case cboDirecao.ListIndex
Case Ascendente
sqlOrderBy = sqlOrderBy & " ASC"
Case Descendente
sqlOrderBy = sqlOrderBy & " DESC"
End Select
'une a query order ao sql
sql = sql & sqlOrderBy
End If
Set rst = New ADODB.Recordset
rst.CursorLocation = adUseClient
With rst
.ActiveConnection = conn
.Open sql, conn, adOpenForwardOnly, _
adLockBatchOptimistic
End With
Set rst.ActiveConnection = Nothing
' Fecha a conexão.
conn.Close
Set PreecheRecordSet1 = rst
Exit Function
TrataErro:
Set rst = Nothing
End Function
Então, para começar, como faço para deixar o banco de dados em outra partiçao na minha maquina por exemplo ???
O Reinaldo e o Mauro sempre me indicão links dos assuntos, confesso que pesquisei na net e não cheguei a nada que fosse bem isso.
Obrigado ao forum mais uma vez.
Postado : 24/01/2013 12:21 pm