USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Data1 + MSflexGrid
Aquatico
SÃO PAULO
SP - BRASIL
Postada em 17/04/2006 17:17 hs            
Estou usando atualmente no meu sistema o Controle Data1 (com o name dtsfiltro), que esta referenciado pelo controle MSfleshGrid (com o name FlgFiltro) aonde no DataSource eu coloco o dtsFiltro, aonde incluo as seguintes linhas para a conexão com o banco de dados access:
dtsFiltro.DatabaseName = "c:sistemasanco.mdb"
FILTROSQL = "Select * from verba"
dtsFiltro.RecordSource = FILTROSQL
dtsFiltro.Refresh
Funciona muito bem, mas agora estou migrando para o banco de dados SQL Server 2000, aonde ja possu a mesma tabela com o mesmo nome e campos, mas pelo que percebi esse controles não funcionam com o SQL, então quais controle e as linha de conexão com o banco de dados devo usar ?
Obs: Eu usei esses comandos para conexão com o SQL
Set CN = New ADODB.Connection
CN.CursorLocation = adUseClient
CN.ConnectionString = "Provider=SQLOLEDB.1;Password=96160635;Persist Security infotec=True;User ID=sa;Initial Catalog=DADOSADV;Data Source=server-sql"
CN.Open
RSSQL.CursorType = adOpenKeyset
RSSQL.LockType = adLockOptimistic
RSSQL.ActiveConnection = CN
Obrigado
Paulo Ricardo
 
     
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 17/04/2006 17:28 hs            
se quiser continuar usando um flexgrid use o MSHFlexgrid...
tenta conectar assim:
 
...
CN.Open
RSSQL.CursorType = adOpenKeyset
RSSQL.LockType = adLockOptimistic
RSSQL.ActiveConnection = CN
Set MSHFlexgrid.DataSource = RSSQL
 
qq coisa é só postar
 
t+
 
TÓPICO EDITADO
   
Aquatico
SÃO PAULO
SP - BRASIL
Postada em 17/04/2006 18:09 hs            
Acrescentei o MSHFlexgrid, mas esta dando erro:
Compile error
Variable not defined
 
Obs: Tirei o grid anterior, tirei o data1, o qual fazia referencia e inserir os comandos:
FILTROSQL = "SELECT * FROM  VERBA WHERE"
EXPSQL = "[VE_COD] = " & CboVerba.Text
EXPSQL = EXPSQL & "AND"
EXPSQL = EXPSQL & "[VE_COD] ORDER BY VE_COD"
FILTROSQL = FILTROSQL & EXPSQL
RSSQL.Open FILTROSQL
Set MSHFlexGrid = RSSQL
 
E da erro na ultima linha, do MSHFlexGrid
 
Obrigado
Paulo Ricardo
     
Cardoso G
Pontos: 2843 Pontos: 2843
PATOS DE MINAS
MG - BRASIL
Postada em 18/04/2006 08:13 hs            
ta faltando alguns espaços só:
FILTROSQL = "SELECT * FROM  VERBA WHERE "
EXPSQL = " [VE_COD] = " & CboVerba.Text
EXPSQL = EXPSQL & " AND "
EXPSQL = EXPSQL & " [VE_COD] ORDER BY VE_COD "
FILTROSQL = FILTROSQL & EXPSQL
RSSQL.Open FILTROSQL
Set MSHFlexGrid = RSSQL
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2026   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página