Conectar esta Forma VB.NET 2008

[Trulala de cordoba]

Hola como te va.
Mira primero que nada te cuento que a la mayoría nos cuesta el cambio, tanto de vb6 o asp 3.0, eso es comun porque uno esta acostumbrado a trabajar de una forma, pero es cuestion de probar e ir de a poco.

Lo primero que te puedo decir es el tema de la conexion, si usas sql server podes usar directamente los controladores exclusivos que te ofrece punto net usando System.Data.SqlClient
y si queres usar Acces usas lo mismo pero .OleDB

Primero crear una conexion:

Dim xConexion as OleDbConnection
xConexion = new OleDbConnection("tu cadena de conexion")
xConexion.Open

Luego para ejecutar consultas tenes varias opciones, usar un DataSet y un Adaptador. O también usar un commando y un DataReader. Esta última para mi es la mejor y más aun si la combinas con colecciones de objetos.

Otra cosa que tienes que olvidarte son los modulos y usar funciones. Ahora todo es usando clases y creando objetos, pero eso puede verlo de a poco.

Bueno, supongamos que tenes una grilla y ahora queres cargarle datos este sería mas o menos el ejemplo completo

Código:

Imports System.Data
Imports System.Data.OleDb
Public Class Form1
    Inherits System.Windows.Forms.Form
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load
 
        'Declaro las variables de control
        Dim objConexion As OleDbConnection
        Dim objAdap1 As OleDbDataAdapter
        Dim objAdap2 As OleDbDataAdapter
        Dim objDataSet As DataSet
 
        'Establezco la conexion con la BD
        objConexion = New OleDbConnection _
        ("Provider=Microsoft.Jet.OleDb.4.0;Data Source=C:BDBDCOMUN.mdb")
 
        'Abro la conexion
        objConexion.Open()
 
        'Establezco la seleccion con la tabla Clientes
        objAdap1 = New OleDbDataAdapter("Select * From Clientes", objConexion)
 
        'Establezco la seleccion con la tabla Empleados
        objAdap2 = New OleDbDataAdapter("Select * From Empleados", objConexion)
 
        'Instancion el DataSet
        objDataSet = New Data.DataSet
 
        'Lleno los repositorios de Datos
        objAdap1.Fill(objDataSet, "Clientes")
        objAdap2.Fill(objDataSet, "Empleados")
 
        'Vuelco los Datos al Datagrid
        Me.DataGrid1.DataSource = objDataSet
 
        'Cierro la conexion
        objConexion.Close()

End Sub

Podes ver más aca:
http://www.mygnet.net/codigos/vb_dot...b_dot_net.1183

Ahora para eliminar y actualizar lo mejor es usar un commando:

Código:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As_
System.EventArgs) Handles Button1.Click

Dim cn As OleDbConnection
Dim cmd As OleDbCommand
Try
cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;_
Data Source=C:\emp.mdb;")

cn.Open()
cmd = New OleDbCommand()
cmd.Connection = Cn
cmd.CommandType = CommandType.Text
cmd.CommandText = "Delete from productos where productoId = @id"

cmd.Parameters.AddWithValue("id",12)
cmd.ExecuteNonQuery

Y con eso podes usar tranquilamente para tus updates y delete unaque como te dije también se puede usar para otras cosas. Si te fijas en el delete se agrega un "@id" que es un parametro de la consulta que luego le cargas un valor por medio de cmd.paramters.AddWithValue, yo le puse un valor fijo pero puede ser una variable

Fijate que la ventaja de eso es que no tenes que concatener texto evitando problemas de seguridad y de tipo de campos como hacer

"where productoId=" & xValorProducto

Si buscas hay mucha info de Ado.net y también es bueno que programes también en c#
Mira este link:
http://www.netveloper.com/contenido2.aspx?IDC=83_0

Saludos y aca estamos para lo que necesites