Visual Basic 2005 + SQL Database

Estou com alguns problemas pois não estou bem dentro deste assunto.

Eu para alguns trabalhos escolares, fiz com o VB 2003 ligações a BD's, que estas encontravam-se em access.

Para valorizar mais o meu trabalho, decidi elaborar um interface em Visual Basic 2005 Express Edition com ligação a uma SQL DataBase mas as minhas dúvidas é em relação fazer a ligação à base de dados.

Pois este interface depois vai conter as opções, inserir registos, apagar e alterar.

Alguém dentro do assunto podia-me ajudar ou facultar manuais e tutoriais? sff

espero k isto te ajude....

imports

Imports System.Data.DataRow
Imports System.Data
Imports System.Data.SqlClient

Clicar para expandir...

connect database:

Dim SQL AsNew SqlClient.SqlConnection("server=xxx\SQLEXPRESS;database=xxx;Uid=xxx;pwd=xxx")

Clicar para expandir...

delete:

Dim Query1 AsString = "delete from Cesto where id_user=" & Module1.id_user
Dim cmd As SqlClient.SqlCommand = New SqlClient.SqlCommand(Query1, SQL)
Try
SQL.Open()
cmd.ExecuteNonQuery()
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
SQL.Close()
EndTry

Clicar para expandir...

insert:

Dim Query1 AsString = "INSERT INTO Cesto (id_user,id_produto,quant) VALUES (@id_user, @id_produto,@quant)"
Dim cmd As SqlClient.SqlCommand = New SqlClient.SqlCommand(Query1, SQL)
cmd.Parameters.AddWithValue("@id_user", Module1.id_user)
cmd.Parameters.AddWithValue("@id_produto", DirectCast(sender, Button).Name.ToString)
cmd.Parameters.AddWithValue("@quant", quantidade)
Try
SQL.Open()
cmd.ExecuteNonQuery()
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
SQL.Close()
EndTry

Clicar para expandir...

select:

Dim SQLA2 AsNew SqlClient.SqlDataAdapter("select * from Produtos where familia=" & Int(id_familias.Text) & "", SQL)
Dim dataset2 AsNew DataSet
Dim table2 AsNew DataTable
Dim colum2 AsNew DataColumn
Dim rows2 As DataRow

SQLA2.Fill(dataset2, "produtos")
Module1.t_linhas = dataset2.Tables("Produtos").Rows.Count
ForEach table2 In dataset2.Tables
ForEach rows2 In table2.Rows
If i < limite And i >= min Then
nome_btn = rows2("nome")
id_btn = rows2("id_produto")
create_button()
i = i + 1
EndIf
Next
Next

Clicar para expandir...

Gooden

Obrigadão pela ajuda

Mas tou com algumas dificuldades...

Estes códigos dão para funcionar a partir de uma classe?

Já que tenho vários forms (um para inserir registos, outro para apagar, outro para alterar e outro para pesquisar).

claro e so defenilos cm public function na class e dps chamalos

Desculpa lá, mas não sabes como é para access?

É que estou a ter algumas dificuldades com sql server, e já agora fazia ligação à bd em access

e facil... so substituires a connection

Dim SQL AsNew SqlClient.SqlConnection("
Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\myFolder\myAccess2007file.accdb;Jet OLEDBatabase Password=MyDbPassword;")

ou

Dim SQL AsNew SqlClient.SqlConnection("Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\mydatabase.mdb;Uid=Admin;Pwd=;")

Clicar para expandir...

espero ter ajudado