clase de datos

Clase de Datos
Imports System.Data.SqlClient
Public Class ClseMarcas
Public Function ArmaMarca(ByVal conex As String) As DataSet
‘Inicio de Control de Errores
Try
‘Creacion de laConexion
Dim conn As New SqlConnection(conex)
‘Creación de una Cadena de Selección
Dim ole As String = “SELECT idmarca,marca FROM marcas ORDER BY idmarca”
‘Creacion del DataSet
Dimdsalum As New DataSet
‘Creacion del Adaptador
Dim daalum As New SqlDataAdapter(ole, conn)
‘Se Abre la Conexion
conn.Open()
‘Se llena el Adaptador
daalum.Fill(dsalum, “marcas”)‘Se cierra la Conexion
conn.Close()
Return dsalum
Catch ex As SqlException
Throw ex
Catch ex As Exception
Throw ex
End Try
End Function
End Class

Load del Form
TryarmaUnidad()
Dim marca As New ClaseMarca
Whit (Me.ComboBox1)
.DisplayMember = “Marca”
.ValueMember = “idMarca”
.DataSource = marca.ArmaMarca(conn).Tables(“Marcas”).DefaultView.SelectedIndex = 0
End With

Catch ex As SqlException
MsgBox(ex.Message)
Finally
If conexión.State = ConnectionState.Open Then
conexion.Close()
End If
End Try

‘ImportarBase de Datos SQL
Imports System.Data.SqlClient
Public Class Form3
Protected Const conn As String = “Data Source=CARLOS-PC\SERVER;Initial Catalog=Sistema de Transporte,Persist SecurityInto=True;User ID=sa;Password=carlos”
Dim conexion As New SqlConnection
‘Creacion del Adaptador SQL
Dim adaptador As New SqlDataAdapter
‘Creacion del DataSet
Dim ds1 As New DataSet
Dim DataViewProductos AsDataView
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
‘Creacion de Conexion al Servidor SQL
conexión = New SqlConnection(“DataSource=CARLOS-PC\SERVER;Initial Catalog=Sistema de Transporte,Persist Security Into=True;User ID=sa;Password=carlos”)
‘Se abre la Conexion
conexion.Open()
‘El Adaptador toma los datos de la...