Boa tarde Galera, procurei noi forum e nao achei nada que me satisfaça, bem i vai minha dúvida.

 

Existe um servidor SQLSERVER funcionando legal, porém tenho que desenvolver um sistema em vb6 para uma empresa.

 

Dúvida 1.

 

Qual a melhor conexão entre os dois , tendo em vista a utilização de uma mega rede da empresa.

 

Dúvida 2 .

 

Já desenvolvo utilizando a access em outras empresas mas soh em máquinas locais, as string do select , insert , updade , delele etc. serão da mesma forma ?

Seguem exemplos que j´´a funcionam. Caso não seja dessa forma teria como me mandar exemplos? 

 

ex:

SELECT

 

Set rd.ActiveConnection = db
    cbosql = "SELECT *"
    cbosql = cbosql & " From cadcli  WHERE CodCli like '%" & CboCodCli.Text & "%' order by cliente"
    rd.Source = cbosql
    rd.Open
   If rd.EOF Then
        MsgBox "Deve-se Cadastrar o Cliente Primeiro", vbCritical, "ATENÇÃO"
        rd.Close
  Else
 
    Do While Not rd.EOF
    CboCli.AddItem rd!cliente
    rd.MoveNext
   ' TxtCodAcao.Text = rd!CodAcao
    Loop
    End If

 

UPDATE

 

db.BeginTrans
   
    sql = "Update CadCli Set "
    sql = sql & "codcli = (" & CboCodCli.Text & ")"
    sql = sql & ",cliente = ('" & CboCli.Text & "')"
    sql = sql & ",dtnasc = ('" & TxtData.Text & "')"
    sql = sql & ",rg = ('" & TxtRg.Text & "')"
    sql = sql & ",cpf = ('" & TxtCpf.Text & "')"
    sql = sql & ",sexo = ('" & CboSexo.Text & "')"
    sql = sql & ",convenio = ('" & CboConvenio.Text & "')"
    sql = sql & ",NConvenio = ('" & TxtNConvenio.Text & "')"
    sql = sql & ",endereco = ('" & TxtEnd.Text & "')"
    sql = sql & ",cep = ('" & TxtCEP.Text & "')"
    sql = sql & ",cidade = ('" & TxtCidade.Text & "')"
    sql = sql & ",bairro = ('" & TxtBairro.Text & "')"
    sql = sql & ",uf = ('" & TxtUf.Text & "')"
    sql = sql & ",telefone = ('" & TxtTelefone.Text & "')"
    sql = sql & ",Celular = ('" & TxtCelular.Text & "')"
    sql = sql & ",comercial = ('" & TxtComercial.Text & "')"
    sql = sql & ",fax = ('" & TxtFax.Text & "')"
    sql = sql & ",email = ('" & TxtEmail.Text & "')"
    sql = sql & ",sangue = ('" & CboSangue.Text & "')"
    sql = sql & ",profissao = ('" & TxtProfissao.Text & "')"
    sql = sql & ",peso = ('" & TxtPeso.Text & "')"
    sql = sql & ",altura = ('" & TxtAltura.Text & "')"
    sql = sql & ",cor = ('" & CboCor.Text & "')"
    sql = sql & ",civel = ('" & CboCivel.Text & "')"
    sql = sql & " Where codcli = (" & CboCodCli.Text & ")"
   
   
        db.Execute sql
        db.CommitTrans

 

INSERT

 

sqls = "Insert Into CadCli(codcli,cliente,dtnasc,rg,cpf,sexo,responsavel,nconvenio,convenio,endereco,cep,cidade,bairro,uf,telefone,celular,comercial,fax,email,civel,profissao,peso,altura,cor,sangue) values "
        sqls = sqls & "(" & CboCodCli.Text & ",'" & CboCli.Text & "','" & TxtData.Text & "','" & TxtRg.Text & "','" & TxtCpf.Text & "','" & CboSexo.Text & "',"
        sqls = sqls & "'" & TxtResponsavel.Text & "','" & TxtNConvenio.Text & "','" & CboConvenio.Text & "','" & TxtEnd.Text & "','" & TxtCEP.Text & "','" & TxtCidade.Text & "',"
        sqls = sqls & "'" & TxtBairro.Text & "','" & TxtUf.Text & "','" & TxtTelefone.Text & "','" & TxtCelular.Text & "','" & TxtComercial.Text & "','" & TxtFax.Text & "','" & TxtEmail.Text & "',"
        sqls = sqls & "'" & CboCivel.Text & "','" & TxtProfissao.Text & "','" & TxtPeso.Text & "','" & TxtAltura.Text & "','" & CboCor.Text & "','" & CboSangue.Text & "')"
                     
        db.Execute sqls
      MsgBox "Cliente Cadastrado com Sucesso", vbInformation, "ATENÇÃO"
   
Desde já agradeço.......

 

Rodrigo,

 

Eu concordo com o pessoal em usar ADO... é o metodo mais seguro pra conectar com VB 6.0...

Se seu projeto for realmente muito grande, eu sugiro que vc escolha uma outra linguagem (Java ou C), que sao mais robustas e apresentam mais segurança...

Voltando a falar em Banco, o SQL Server é um banco muito bom, e apresenta muitas particularidades na construção de Strings SQL... com certeza vc vai encontrar recursos no SQL Server que nunca viu no Access ou em outro SGBD...

Concordo com o Erico em Usar e Abusar de Stored Procedures e de Comandos Nativos SQL (nao use recordsets pra atualizar, como disse o Luiz Henrique)... mas cuidado com a integridade dos dados... sempre bloqueie os registros que uma estação está utilizando...

Quanto a componentes vinculados, eu sinceramente nao gosto, mas nao vejo problema nenhum em usa-los... a unica limitação é a necessidade de manter os recordsets abertos (perde performance na rede e memoria no micro)

 

Olha, amigo, a construção dos comandos SQL é a mesma para comandos simples (como os que vc postou) mas quando vc começar a usar comandos mais complexos (isso vai acontecer) vc vai precisar de um bom guia de referencia... se for possivel, instale na sua maquina de desenvolvimento o Books On-line do SQL Server... ele tem referencia pra praticamente tudo que vc possa precisar (se vc souber ingles, obvio...)

 

Bem... qualquer  coisa estamos aki pra ajudar... pode contar com o pessoal aki do forum... especialmente comigo, que sou um grande incentivador de migrações da dupla Access-DAO... pode me Add no msn ou me procurar por e-mail... estarei sempre disposto a ajudar...

Tb se cadastre aki no forum... tem muita gente boa aki com muito conhecimento pra te passar...

 

Flw!

Galera obrigado pela a atenção de vcs, mas eu gostaria que vcs me mandassem exemplos completos de conexão de vb com sql se possivel,   e exemplos de insert , uploads etc.... como mandei anexado..... tem como vcs me ajudarem ?