pessoal no meu sistema uso dao para acessar os dados e outras coisas mais.

como eu faço para fazer uma conexão com sql server 2000?

valeu

Primeiro, estude um pouco sobre ADO. Não que não seja possível acessar o SQL Server (tb conhecido como MSDE) com o DAO, mas usando o ADO, é muito melhor. Aqui no site mesmo tem muita coisa boa sobre ADO. Boa Sorte

cara, eu já conheço ado. já desenvolvi vários sistemas em ado.

 

só que tem um sistema aqui na empresa que foi feito em dao e vamos mudar o banco de dados para sql server 2000.

 

por isso eu quero saber como faço a sintaxe para fazer conexão com o sqlserver com dao;

 

login do sistema:

'Desenvolvedor......: André Martini - andremartini@feevale.br - Ramal 8823
'Data de criação....: 25/05/2005
'Funcionalidade.....: esta sub trata a ação do click no botão Confirma
'Referências de uso.: frmLogin
'Exemplo de uso.....: cmdConfirma_Click
'Destacar alterações:
Private Sub cmdConfirma_Click()
  On Error Resume Next
  Screen.MousePointer = vbHourglass
  Dim intPareceOk As Integer 'controle se foi preenchido os campos de usuário e senha
  intPareceOk = (Len(txtUsuario.Text) > 0 And Len(txtSenha.Text) > 0)                                    'parece ok se os dois campos têm valores...
  If Not intPareceOk Then                          'se não parece ok,
    Screen.MousePointer = vbNormal
    Beep                                           'apita e mostra mensagem de erro...
    MsgBox "Favor digitar a informação solicitada!", vbExclamation, strAtencao$
    txtUsuario.SetFocus                           'coloca o foco no campo nome do usuário
  Else 'parece que está tudo OK - vamos ver...
    'conexão com banco de dados
    Cnn.ConnectionString = "driver={SQL Server};server=AresDesenv;uid=" & Trim(txtUsuario.Text) & ";pwd=" & Trim(txtSenha.Text) & ";database=DesenvSiga"
    Cnn.CommandTimeout = 0
    Cnn.Open
    'se ocorreu algum erro
    If Err <> 0 Then
      'verifica o número de tentativas
      If intNumTent < 3 Then            'se ainda não tentou 3 vezes,
        Screen.MousePointer = vbNormal
        Beep                            'apita e
        MsgBox "Nome do usuário e/ou senha inválida!", vbCritical, strAtencao$ 'avisa que deu erro...
        txtUsuario.SetFocus             'volta o foco para o campo nome do usuário
        intNumTent = intNumTent + 1     'tentou mais uma vez
        Exit Sub
      End If
    Else
      Screen.MousePointer = vbNormal
      'carrega variáveis e abre formulario principal
      strPWUsuario$ = txtUsuario.Text                           'variáveis da senha deixa normal
      strPWSenha$ = txtSenha.Text                             'usar em mensagens
      mdiPrincipal.Show
    End If
    Unload Me 'descarrega este form
  End If
End Sub

 

 

******************

tabela do objeto adodc

  adoTb.ConnectionString = Cnn.ConnectionString
  adoTb.RecordSource = "relRelatorio"
  adoTb.CommandType = adCmdTable
  adoTb.Refresh
  Reposition

ou dinamica

  adoTbCol.ConnectionString = Cnn.ConnectionString
  'seleciona todas propriedades da coluna do relatório
  adoTbCol.RecordSource = "select idRelatorio AS idRel, NomeColuna AS Coluna, Tipo AS Tipo, Tamanho AS Tamanho, DecimalCP AS DecimalCP, PictureCP AS PictureCP, Totalizar AS Totalizar, Imprimir AS Imprimir from relColuna where idRelatorio = " + Str(adoTb.Recordset.Fields(0).Value) + "  and NomeColuna = '" + strNomeCol + "'"
  adoTbCol.Refresh