MIGRAR DO ACESS PARA SQL
Bom dia pessoal,
Estou migrando meus bancos de dados do acess para o SQL Server Management Studio Express, só que para abrir r o arquivo de movimentação financeira dos associado, o programa fica extremamente lento. Bem o código de abertura está abaixo, gostaria de saber o que estou fazendo de errado na abertura do arquivo que fica muito lento.
Public Sub Abre_Movim()
Set Conexao06 = New ADODB.Connection
Conexao06.ConnectionString = [Ô]Provider=MSDASQL.1;Persist Security Info=False;Data Source=Associados;Mode=ReadWrite;Initial Catalog=master[Ô]
Conexao06.Open
MdMovF02.CursorLocation = adUseClient
MdMovF02.Open [Ô]SELECT * FROM AQ_CAI01[Ô], Conexao06, adOpenDynamic, adLockOptimistic
End Sub
Outra coisa, neste mesmo programa, tenho um ListView, ao tentar preenché-lo, dá-se erro, em algumas linha, pareçe que a variável está em branco, mas na realidade não está. Veja o código abaixo:
Public Sub Mostrta_Financ(Lst_FicFin As ListView, MdMovF02 As ADODB.Recordset)
Dim LstView As ListItem
Lst_FicFin.ListItems.Clear
xCondicao = [Ô]CODMAT_CAI Like [ô]%[Ô] & Txt_CodAss & [Ô]%[ô][Ô]
xSQL = [Ô]Select * FROM AQ_CAI01[Ô]
xSQL = xSQL & [Ô] Where [Ô] & xCondicao & [Ô][Ô]
Set MdMovF02 = Conexao06.Execute(xSQL)
If Not MdMovF02.EOF Then
Frm_Sec001.StatusBar1.Panels(5) = [Ô]...Aguarde!! Montando tela do Movimento[Ô]
While Not MdMovF02.EOF
If MdMovF02!CODMAT_CAI = Txt_CodAss Then
Set LstView = Lst_FicFin.ListItems.Add(, , MdMovF02!DATLAN_CAI)
LstView.SubItems(1) = IIf(MdMovF02!HISCAI_CAI <> [Ô] [Ô], MdMovF02!HISCAI_CAI, String(40, [Ô]_[Ô]))
LstView.SubItems(2) = IIf(MdMovF02!QTOMES_CAI <> [Ô] [Ô], MdMovF02!QTOMES_CAI, [Ô]0[Ô])
LstView.SubItems(3) = IIf(MdMovF02!ULTPAG_CAI <> [Ô] [Ô], Mid(MdMovF02!ULTPAG_CAI, 4), [Ô] [Ô])
LstView.SubItems(4) = IIf(MdMovF02!VALPAG_CAI <> [Ô] [Ô], Format(MdMovF02!VALPAG_CAI, [Ô]###,##0.00[Ô]), [Ô] [Ô])
LstView.SubItems(5) = IIf(MdMovF02!NUMCEF_CAI <> [Ô] [Ô], MdMovF02!NUMCEF_CAI, [Ô]0[Ô])
LstView.SubItems(6) = IIf(MdMovF02!USER_NAME <> [Ô] [Ô], MdMovF02!USER_NAME, String(15, [Ô]_[Ô]))
LstView.SubItems(7) = IIf(MdMovF02!USER_TIME <> [Ô] [Ô], MdMovF02!USER_TIME, [Ô]00:00[Ô])
End If
MdMovF02.MoveNext
Wend
Frm_Sec001.StatusBar1.Panels(5) = [Ô][Ô]
End If
End Sub
O que estou fazendo tb de errado neste código.
Obrigado,
Estou migrando meus bancos de dados do acess para o SQL Server Management Studio Express, só que para abrir r o arquivo de movimentação financeira dos associado, o programa fica extremamente lento. Bem o código de abertura está abaixo, gostaria de saber o que estou fazendo de errado na abertura do arquivo que fica muito lento.
Public Sub Abre_Movim()
Set Conexao06 = New ADODB.Connection
Conexao06.ConnectionString = [Ô]Provider=MSDASQL.1;Persist Security Info=False;Data Source=Associados;Mode=ReadWrite;Initial Catalog=master[Ô]
Conexao06.Open
MdMovF02.CursorLocation = adUseClient
MdMovF02.Open [Ô]SELECT * FROM AQ_CAI01[Ô], Conexao06, adOpenDynamic, adLockOptimistic
End Sub
Outra coisa, neste mesmo programa, tenho um ListView, ao tentar preenché-lo, dá-se erro, em algumas linha, pareçe que a variável está em branco, mas na realidade não está. Veja o código abaixo:
Public Sub Mostrta_Financ(Lst_FicFin As ListView, MdMovF02 As ADODB.Recordset)
Dim LstView As ListItem
Lst_FicFin.ListItems.Clear
xCondicao = [Ô]CODMAT_CAI Like [ô]%[Ô] & Txt_CodAss & [Ô]%[ô][Ô]
xSQL = [Ô]Select * FROM AQ_CAI01[Ô]
xSQL = xSQL & [Ô] Where [Ô] & xCondicao & [Ô][Ô]
Set MdMovF02 = Conexao06.Execute(xSQL)
If Not MdMovF02.EOF Then
Frm_Sec001.StatusBar1.Panels(5) = [Ô]...Aguarde!! Montando tela do Movimento[Ô]
While Not MdMovF02.EOF
If MdMovF02!CODMAT_CAI = Txt_CodAss Then
Set LstView = Lst_FicFin.ListItems.Add(, , MdMovF02!DATLAN_CAI)
LstView.SubItems(1) = IIf(MdMovF02!HISCAI_CAI <> [Ô] [Ô], MdMovF02!HISCAI_CAI, String(40, [Ô]_[Ô]))
LstView.SubItems(2) = IIf(MdMovF02!QTOMES_CAI <> [Ô] [Ô], MdMovF02!QTOMES_CAI, [Ô]0[Ô])
LstView.SubItems(3) = IIf(MdMovF02!ULTPAG_CAI <> [Ô] [Ô], Mid(MdMovF02!ULTPAG_CAI, 4), [Ô] [Ô])
LstView.SubItems(4) = IIf(MdMovF02!VALPAG_CAI <> [Ô] [Ô], Format(MdMovF02!VALPAG_CAI, [Ô]###,##0.00[Ô]), [Ô] [Ô])
LstView.SubItems(5) = IIf(MdMovF02!NUMCEF_CAI <> [Ô] [Ô], MdMovF02!NUMCEF_CAI, [Ô]0[Ô])
LstView.SubItems(6) = IIf(MdMovF02!USER_NAME <> [Ô] [Ô], MdMovF02!USER_NAME, String(15, [Ô]_[Ô]))
LstView.SubItems(7) = IIf(MdMovF02!USER_TIME <> [Ô] [Ô], MdMovF02!USER_TIME, [Ô]00:00[Ô])
End If
MdMovF02.MoveNext
Wend
Frm_Sec001.StatusBar1.Panels(5) = [Ô][Ô]
End If
End Sub
O que estou fazendo tb de errado neste código.
Obrigado,
Quantos registros tem na tabela AQ_CAI0?
Tecla - este arquivo guarda toda a movimentação financeira dos associados da empresa, tanto os que já sairam quanto os que permanecem, por isto este arquivo é grande, tenho 149.310 registro e não tenho como fazer nenhuma limpeza neste arquivo, pois são informações sigilosas.
RCMRO - tentei a sua sugestão, não deu certo, me retorna o seguinte erro:
Run-Time error -2147217900(80040e14)
[Microsoft][ODBC SQL Server Driver][SQL Server]Incorrect syntax near the keyword [Ô]Where[Ô]
Já que sou sem experiência em SQL, o que pode estar acontecendo para dar este erro??
Run-Time error -2147217900(80040e14)
[Microsoft][ODBC SQL Server Driver][SQL Server]Incorrect syntax near the keyword [Ô]Where[Ô]
Já que sou sem experiência em SQL, o que pode estar acontecendo para dar este erro??
Alguém tem um exemplo de como faço a abertura do banco de dados no SQL Server Management Studio Express, pois estou com dificuldades para fazé-lo.
Obrigado,
Obrigado,
Tópico encerrado , respostas não são mais permitidas