MIGRA?ÃO DE ACESS PRA SQL SERVER 2014 EXPRESS

DARKYUSUKI 11/04/2016 03:50:49
#460845
olá a todos. andei tento varios problema com acces e resolvi migrar o programa para sql. porém como n tenho dominio de sql server 100% gostaria de pedir ajuda a vcs.

Seguinte. uso o seguinte codigo para fazer a conexão com o access

Dim strconexao As String
Dim cn As New ADODB.Connection
Dim caminho As String
cn = New ADODB.Connection

strconexao = Principal.bd
cn.ConnectionString = strconexao
cn.Open()
caminho = [Ô]Delete from compra where codigo =[Ô] + nPedido.ToString + [Ô][Ô]
cn.Execute(caminho)
cn.Close()

onde principal.bd e onde ele busca a conexão.
principal sendo o form principal do programa
bd sendo uma variavel publica que recebe o seguinte texto
[Ô]Provider=Microsoft.Jet.OLEDB.4.0;[Ô] & _
[Ô]Persist Security Info=False;[Ô] & _
[Ô]Data Source=C:\Taligado\bds\TaligadoBD.mdb;[Ô] & _
[Ô]Jet OLEDB:Database;[Ô]

gostaria de saber de vcs o que devo mudar para fazer a conexão com o bd sem ter que refaze todo o sistema de conexão do programa. caso isso seja possivel é claro
OMAR2011 11/04/2016 08:58:17
#460854
Troque o Provider do Access para o Sqlserverexpress.

Usar Ado no Vbnet!
Códigos Vb6 para Vb6.
Códigos Vbnet para Vbnet
Isto só da dor de cabeça.
Não é compatível.
OMAR2011 11/04/2016 11:15:34
#460869
COQUITO, ele está usando Ado.
DARKYUSUKI 14/04/2016 21:40:26
#460927
pessoal obrigado por responderem. desculpa n ter comentado nada faz 3 dias que estava tentando acessar o site e n carregava.

bom ainda estou em duvida sobre a mudança que tenho que fazer

Coquito assisti o video e não ajudo muito não
achei esse codigo na net

Citação:

Public Function GetConnectionSQLServer() As SqlConnection
Dim sql As String = [Ô]Data Source=SERVIDORPC\SQLEXPRESS;Initial Catalog=Coligado;User ID=sa;Password=lean1802[Ô]
Return New SqlConnection(sql)
End Function
Private Sub PCarregaDadosSQLServer()
Using con As SqlConnection = GetConnectionSQLServer()
Try
con.Open()
Dim sql As String = [Ô]SELECT * FROM PRODUTOS[Ô]
Dim cmd As SqlCommand = New SqlCommand(sql, con)
Dim da As SqlDataAdapter = New SqlDataAdapter(cmd)
Dim dt As DataTable = New DataTable
da.Fill(dt)
ListBox1.Items.Add(da)
dgvDados.DataSource = dt
Catch ex As Exception
MsgBox(ex.Message)
Finally
con.Close()
End Try
End Using
End Sub
Private Sub InsereDados()
Using con As SqlConnection = GetConnectionSQLServer()
Try
con.Open()
Dim SQL As String = [Ô]INSERT INTO dbo.produtos([codigo],[nome]) VALUES (1,1)[Ô]
Dim command As New SqlCommand(SQL, con)
command.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.Message)
Finally
con.Close()
End Try
End Using
End Sub
Private Sub AtualizaDados()
Using con As SqlConnection = GetConnectionSQLServer()
Try
con.Open()
Dim SQL As String = [Ô]UPDATE dbo.produtos SET [codigo]= 2,[nome] = 2 where [codigo] = 1[Ô]
Dim command As New SqlCommand(SQL, con)
command.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.Message)
Finally
con.Close()
End Try
End Using
End Sub
Private Sub DeletaDados()
Using con As SqlConnection = GetConnectionSQLServer()
Try
con.Open()
Dim SQL As String = [Ô]DELETE FROM dbo.produtos where [nome] = 1[Ô]
Dim command As New SqlCommand(SQL, con)
command.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.Message)
Finally
con.Close()
End Try
End Using
End Sub



so que fiquei em duvida de como trabalho com a pesquisa feita no bd. tipo eu busquei as informações e joguei na tabela. como eu filtro essa pesquisa e separo em variaveis.
no codigo anterior eu abria o rs e usava variavel = rs([Ô]nomedatabela[Ô]).value
no codigo do sql eu to tentando acha como que faz isso
Faça seu login para responder
Voltar