SQL
A parte do código onde é feita a abertura da conexão com o banco de dados, de preferência, incluindo a parte onde o tratamento de exceção é feito.
Imports System.Data.SqlClient
Public Class frmabertura
[ô]criação de variavel para localizar o caminho onde esta o bd
Dim linha As String = Application.StartupPath & [Ô]\SIAF.mdf[Ô]
Dim conn As New SqlConnection([Ô]Data source=.\SQLEXPRESS;AttachDbFilename=[Ô] & linha & [Ô];User ID=Teste;Password=123456;User Instance=True[Ô])
Dim contar As Integer
Private Sub frmabertura_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
[ô]conecta o bd
Dim conexao As New conexaoBD
conexao.sconectar()
conn.Open()
temporizador.Enabled = True
Catch EX As Exception
MsgBox([Ô]erro - [Ô] + EX.Message)
End Try
End Sub
Private Sub temporizador_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles temporizador.Tick
contar = contar + 1
If contar = 5 Then
temporizador.Enabled = False
Autenticacao.Show()
Autenticacao.txtutilizador.Focus()
Me.Hide()
End If
End Sub
End Class
Public Class frmabertura
[ô]criação de variavel para localizar o caminho onde esta o bd
Dim linha As String = Application.StartupPath & [Ô]\SIAF.mdf[Ô]
Dim conn As New SqlConnection([Ô]Data source=.\SQLEXPRESS;AttachDbFilename=[Ô] & linha & [Ô];User ID=Teste;Password=123456;User Instance=True[Ô])
Dim contar As Integer
Private Sub frmabertura_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
[ô]conecta o bd
Dim conexao As New conexaoBD
conexao.sconectar()
conn.Open()
temporizador.Enabled = True
Catch EX As Exception
MsgBox([Ô]erro - [Ô] + EX.Message)
End Try
End Sub
Private Sub temporizador_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles temporizador.Tick
contar = contar + 1
If contar = 5 Then
temporizador.Enabled = False
Autenticacao.Show()
Autenticacao.txtutilizador.Focus()
Me.Hide()
End If
End Sub
End Class
O que é feito no método [Ô]sconectar[Ô]?
Imports System.Data.SqlClient
Public Class conexaoBD
Private strcon As String
Private varConectado As Boolean
Public Sub New()
Dim linha As String = Application.StartupPath & [Ô]\SIAF.mdf[Ô]
strcon = [Ô]Data source=.\SQLEXPRESS;AttachDbFilename=[Ô] & linha & [Ô];User ID=texte;Password=123456;User Instance=True[Ô]
End Sub
Public Property Conectado() As Boolean
Get
Conectado = varConectado
End Get
Set(ByVal value As Boolean)
varConectado = value
End Set
End Property
Public Sub sconectar()
Conectado = True
Try
Dim con As New SqlConnection(strcon)
con.Open()
Catch EX As Exception
Conectado = False
End Try
End Sub
End Class
Voltei para autenticação do windows e continua o mesmo erro.
desculpe minha ignorancia não sei para que serve essa parte : [Ô]User Instance=True[Ô], mas coloquei como false em todas e funcionou
OK, dizem que quem quer vai a luta, e mesmo sendo um amante de programação, principalmente em vb, ainda preciso aprender muita coisa, mas estou contente com o que sei, pois nunca fiz nenhum curso.
Agora já sei para que serve o [Ô]User Instance= true[Ô], indica que crie uma instância para cada usuário, assim mais de uma pessoa poderá estar usando o meu sistema sem dar erros ou bugs, se eu colocar como false apenas poderá ter um usuário por vez.
Mas ainda estou com true e tenho o mesmo erro.
Agora já sei para que serve o [Ô]User Instance= true[Ô], indica que crie uma instância para cada usuário, assim mais de uma pessoa poderá estar usando o meu sistema sem dar erros ou bugs, se eu colocar como false apenas poderá ter um usuário por vez.
Mas ainda estou com true e tenho o mesmo erro.
Tópico encerrado , respostas não são mais permitidas