Comprei um livro para estudo "Acessando SQL Serve 2000 com Visual Basic 6.
Pela primeira vez instalei o SQL Server 2000 Entreprise Editon.
No livro consta a informação "Lembre-se que, para se conetar ao SQL Server, será exigido um senha. A senha padrão do usuário sa é em branco.
Na quela tela de instalação "Authentic Mode" optei por "Mixed Mode" pediu para indicar o "passaword" digitei "sa" em "Confirm" digitei "sa". Tenho certeza que tem algo errado pois ao tentar rodar um programa em VB6 aparece
Mensagem: Run-time em 'a2147217843(80040e4d)': Login failed for user 'sa'.
O codigo no VB6 é do livro e deve estar certo;
Private Sub Command1_Click()
Dim oC As ADODB.Connection
Dim numReg As Integer
Set oC = New ADODB.Connection
oC.Open ("Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=tempdb") (aqui para com o erro)
'insere Registro
oC.BeginTrans
oC.Execute ("Insert into Livros(Nome,Autor) Values('SQL Server', 'Adelize Oliveira')"), numReg
If numReg = 1 Then
oC.CommitTrans
MsgBox "Registro inserido"
Else
oC.RollbackTrans
MsgBox "Registro não inserido!"
End If
End Sub
Como devo instalar o SQL Serve 2000 para que esse erro não ocorra?
Meu Programa Não Rodo
Started By
Teixeira
, 02/08/2003, 09:48
1 reply to this topic
#2
ESPIA
-
- Usuários
-
- 157 posts
Eu mesmo!
- Sexo:Não informado
- Localidade:Curitiba/PR
- Interesses:Processos de Engenharia e Qualidade de Software, mais especificamente Gerência de Projetos, requisitos e regras de Negócios, Técnicas de Análise (AE, OO), Projeto, Codificação (qualquer ferramenta), SGBDR e WEB development.
Posted 06/08/2003, 20:29
oC.Open ("Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa PASSWORD=sa;Initial Catalog=tempdb")
BB 20 4D 65 75 20 69 6E 74 65 72 65 73 73 65 20 61 71 75 69 20 E9 20 70 61 72 74 69 63 69 70 61 72 2C 20 64 65 20 66 6F 72 6D 61 20 70 6F 73 69 74 69 76 61 20 65 20 70 72 6F 64 75 74 69 76 61 2C 20 64 65 20 74 6F 64 61 73 20 61 73 20 64 69 73 63 75 73 73 F5 65 73 20 72 65 6C 61 63 69 6F 6E 61 64 61 73 20 61 20 48 61 72 64 77 61 72 65 2C 20 53 6F 66 74 77 61 72 65 20 65 20 57 65 62 20 44 65 76 65 6C 6F 70 6D 65 6E 74 2C 20 61 6C E9 6D 20 64 6F 20 70 72 F3 70 72 69 6F 20 72 65 6C 61 63 69 6F 6E 61 6D 65 6E 74 6F 20 65 20 64 65 73 65 6E 76 6F 6C 76 69 6D 65 6E 74 6F 20 68 75 6D 61 6E 6F 2C 20 65 6E 71 75 61 6E 74 6F 20 FA 74 69 6C 20 65 20 61 67 72 61 64 E1 76 65 6C 2E
» Deixe tudo um pouco melhor do que era antes de você chegar!
» Deixe tudo um pouco melhor do que era antes de você chegar!
0 user(s) are reading this topic
0 membro(s), 0 visitante(s) e 0 membros anônimo(s)
