BD SQL
Boas pessoal,
Estou começando agora, adicionei ao meu projecto um base de dados em sql, atravez de add new.
Como posso agora fazer a ligação com o programa??
Cumprimentos
Estou começando agora, adicionei ao meu projecto um base de dados em sql, atravez de add new.
Como posso agora fazer a ligação com o programa??
Cumprimentos
explique melhor meu filho
vou tentar explicar melhor então.
Já consegui fazer a conexão da base de dados com o código do seguinte modo:
AuxS = Apppath & "\DataBase.mdf" ' Apppath & "G:\Visual Basic\Programas vb.net\EXPE sql\Basculas\Basculas
'string de conexão com o SQL Server 2005 Express local
strcon = "Data Source=.\SQLEXPRESS;AttachDbFilename=" & AuxS & ";Integrated Security=True;Connect Timeout=30;User Instance=True"
'instrução sql para selecionar todos os registros da tabela clientes
Dim strSQL As String = "Select * from Acessos where Anulado= 0 order by ID"
Try
'cria um dataset , preenche e carrega a tabela clientes
Dim conBD As New SqlConnection(strcon)
ds = New DataSet
da = New SqlDataAdapter(strSQL, strcon)
da.Fill(ds, "Acessos")
dt = ds.Tables("Acessos")
If dt.Rows.Count > 0 Then
registro = 0
cmdPrimeiro_Click(Nothing, Nothing)
Else
registro = -1
cmdRegistos.Enabled = False
cmdApagar.Enabled = False
End If
Catch ex As Exception
MessageBox.Show("Erro: " & ex.Message, "Sem conexão", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End Try
mas eu já tenho o código do programa todo feito para uma base de dados em access, faço a minha conexão do seguinte modo:
PATHBD = Apppath & "\Base_dados.mdb"
cn = CreateObject("ADODB.connection")
cn.Open("Driver={Microsoft Access Driver (*.mdb)};Dbq=" & PATHBD & ";Uid=;Pwd=;")
rs = CreateObject("ADODB.recordset")
rs.CursorLocation = ADODB.CursorLocationEnum.adUseClient
rs.Open("select * from Acessos where Anulado like 0 order by ID", cn, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)
como faço uma ligação com a base de dados em sql do mesmo modo que tenho para access???
Alguem me pode ajudar?
Já consegui fazer a conexão da base de dados com o código do seguinte modo:
AuxS = Apppath & "\DataBase.mdf" ' Apppath & "G:\Visual Basic\Programas vb.net\EXPE sql\Basculas\Basculas
'string de conexão com o SQL Server 2005 Express local
strcon = "Data Source=.\SQLEXPRESS;AttachDbFilename=" & AuxS & ";Integrated Security=True;Connect Timeout=30;User Instance=True"
'instrução sql para selecionar todos os registros da tabela clientes
Dim strSQL As String = "Select * from Acessos where Anulado= 0 order by ID"
Try
'cria um dataset , preenche e carrega a tabela clientes
Dim conBD As New SqlConnection(strcon)
ds = New DataSet
da = New SqlDataAdapter(strSQL, strcon)
da.Fill(ds, "Acessos")
dt = ds.Tables("Acessos")
If dt.Rows.Count > 0 Then
registro = 0
cmdPrimeiro_Click(Nothing, Nothing)
Else
registro = -1
cmdRegistos.Enabled = False
cmdApagar.Enabled = False
End If
Catch ex As Exception
MessageBox.Show("Erro: " & ex.Message, "Sem conexão", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End Try
mas eu já tenho o código do programa todo feito para uma base de dados em access, faço a minha conexão do seguinte modo:
PATHBD = Apppath & "\Base_dados.mdb"
cn = CreateObject("ADODB.connection")
cn.Open("Driver={Microsoft Access Driver (*.mdb)};Dbq=" & PATHBD & ";Uid=;Pwd=;")
rs = CreateObject("ADODB.recordset")
rs.CursorLocation = ADODB.CursorLocationEnum.adUseClient
rs.Open("select * from Acessos where Anulado like 0 order by ID", cn, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)
como faço uma ligação com a base de dados em sql do mesmo modo que tenho para access???
Alguem me pode ajudar?
Tópico encerrado , respostas não são mais permitidas