Visual basic 2010 data por codigo

FERSYSTEM

[email protected]: Juan Manuel Fernández Novoa

ACCEDER A UNA BASE DATO POR CÓDIGO

En Visual BASIC 2010 ha cambiado la forma de acceder por código, también algunas funciones

han sido cambiado para el usuario mismo los configure como el

Veamos el caso cuando deseamos acceder a SQLSERVER

CONECTÁNDONOS A SQLSERVER

Dim MiDataSet As New DataSet()

Private Sub Button1_Click() Dim conexion As New SqlClient.SqlConnectionpassword='';database=cole") REM crear una coneccion a sqlserver conexion.Open() REM abriendo la base datos Dim Comando As New SqlClient.SqlDataAdapterREM filtrando datos de una tabla Comando.Fill(MiDataSet, "alumno") REM capturando valores a dataset Comando = Nothing REM confirmando Dim strTexto As String = "" ' Recorremos las tablas

Dim Row For Each Row In MiDataSet.Tables(0).RowsstrTexto += "alumno:" & Row(1).ToString() & Next MessageBox.Show(strTexto) End Sub

Para profundizar de este tema hay que tener en cuenta:

Sqlcliente.sqlConnection SqlClient.SqlDataAdapter

FERSYSTEM

[email protected] – www.fersystem.webcindario.com

For: Juan Manuel Fernández Novoa

ACCEDER A UNA BASE DATO POR CÓDIGO


han sido cambiado para el usuario mismo los configure como el caso de fecha y otros.

Veamos el caso cuando deseamos acceder a SQLSERVER

SqlConnection("server=FERSYSTEM-PC; user id=sa;

SqlDataAdapter("SELECT * FROM alumno", conexion)

MiDataSet.Tables(0).Rows & Row(1).ToString() & " -- tiene: " & Row(2).ToString() & " años"

Para profundizar de este tema hay que tener en cuenta:

Declaración general

Para crear un dataset

Dentro control button

Código de

usamos la

sqlSERVER

Creamos un formulario como se ve a

continuación insertamos control Butt

Y después insertamos el código que permita

acceder SQLSERVER, para acceder demos

tener un servidor SQLSERVER, un

con permisos y un nombre base datosparte donde se indica estos parámetros es:

Dim conexion As New

SqlClient.SqlConnection("se

YSTEM-PC; user id=sa;

password='';database=cole")

.webcindario.com 1


caso de fecha y otros.

" años" & vbCrLf

Dentro control button

Código de conexión

usamos la conexión cliente

sqlSERVER


control Button


acceder SQLSERVER, para acceder demos

SQLSERVER, un usuario

nombre base datos. La

parte donde se indica estos parámetros es:

SqlClient.SqlConnection("server=FERS

password='';database=cole")

FERSYSTEM


CONECTÁNDONOS MICROSOFT ACCESS

Para acceder a MS-ACCESS usaremos OLE DB

Dim MiDataSet As New DataSet()

Private Sub Button1_Click() HandlesDim sqlstr As String

Dim constr As String

Dim conusua As OleDb.OleDbConnection

Dim orden As OleDb.OleDbDataAdapterDim tabla As DataSet

sqlstr = "SELECT * from ingresos"constr = "Provider=Microsoft.ACE.OLEDB.12.0;data

Try

conusua = New OleDb.OleDbConnection orden = New OleDb.OleDbDataAdapter

tabla = New DataSet

orden.Fill(tabla, "ingresos")

MsgBox(tabla.Tables("ingresos"tabla.Tables("ingresos").Rows(0).Item(1))

'TextBox1.Text = tabla.Tables("ingresos").Rows(0).Item(1)

Catch ex As Exception MsgBox(ex.Message)

End Try

End Sub

FERSYSTEM



CONECTÁNDONOS MICROSOFT ACCESS

ACCESS usaremos OLE DB, el proveedor Microsoft.ACE.OLEDB.12.0

()

Handles Button1.Click

OleDbConnection

OleDbDataAdapter

"SELECT * from ingresos" "Provider=Microsoft.ACE.OLEDB.12.0;data source=d:\vb\caja\micaja.accdb"

OleDbConnection(constr) OleDbDataAdapter(sqlstr, conusua)

)

"ingresos").Rows(0).Item(0) & "--" & ).Rows(0).Item(1))



continuación insertamos


conectarnos una base datos en MS

debemos saber donde está ubicado la base

datos.

En mi caso está en: d:\vb\caja\micaja.accdb

Declaración general

Para crear un dataset

Dentro control botón

hay recodar que usara

herramientas Oledb

permiten conectar

.webcindario.com 2

Microsoft.ACE.OLEDB.12.0

micaja.accdb"


continuación insertamos control Button


conectarnos una base datos en MS-Access,

debemos saber donde está ubicado la base

micaja.accdb

botón

hay recodar que usara

Oledb son las que nos

permiten conectar MS-Access

FERSYSTEM


CONEXIÓN VIA ODBC Una de las ventajas de usar el conector vía

base de datos, usando los DSN.

Private Sub Button1_Click(ByVal

System.EventArgs) Handles Button1.ClickDim sqlstr As String

Dim constr As String

'creando una conexion Dim conusua As Odbc.OdbcConnection

Dim orden As Odbc.OdbcDataAdapter

'prearando receptor Dim tabla As DataSet

' creando consulta

sqlstr = "SELECT * from ingresos"

'parametro para acceder por ODBCconstr = "dsn=micaja"

Try

conusua = New Odbc.OdbcConnection orden = New Odbc.OdbcDataAdapter

tabla = New DataSet

orden.Fill(tabla, "ingresos") MsgBox(tabla.Tables("ingresos"

tabla.Tables("ingresos").Rows(0).Item(1))


Catch ex As Exception MsgBox(ex.Message)

End Try

End Sub

FERSYSTEM



na de las ventajas de usar el conector vía origen datos ODBC nos permite acceder a varias

ByVal sender As System.Object, ByVal e As

Button1.Click

OdbcConnection

OdbcDataAdapter

"SELECT * from ingresos"

'parametro para acceder por ODBC

OdbcConnection(constr) OdbcDataAdapter(sqlstr, conusua)

) "ingresos").Rows(0).Item(0) & "--" &

).Rows(0).Item(1))



continuación insertamos control Button


conectarnos un origen datos

recodar que debemos crear nuestro DSN,

seleccionando una base datos en mi caso mi

DSN se llama micaja, utilizando

MS-Access

Dentro del control

usaremos la herramientas

con dos opciones:

y OdbcDataAdapter

abrir una base datos de forma

directa

.webcindario.com 3

nos permite acceder a varias


control Button


conectarnos un origen datos ODBC, hay que debemos crear nuestro DSN,

seleccionando una base datos en mi caso mi

se llama micaja, utilizando controlador

del control button1

usaremos la herramientas Odbc

con dos opciones: OdbcConnection

y OdbcDataAdapter , esta permite

abrir una base datos de forma

Visual basic 2010 data por codigo

Education

Transcript of Visual basic 2010 data por codigo