vb data por codigo
4
1 FERSYSTEM 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 caso de fecha y otros. 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.SqlConnection("server=FERSYSTEM-PC; user id=sa; password='';database=cole") REM crear una coneccion a sqlserver conexion.Open() REM abriendo la base datos Dim Comando As New SqlClient.SqlDataAdapter("SELECT * FROM alumno", conexion) REM 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).Rows strTexto += "alumno:" & Row(1).ToString() & " -- tiene: " & Row(2).ToString() & " años" & vbCrLf Next MessageBox.Show(strTexto) End Sub Para profundizar de este tema hay que tener en cuenta: [email protected] – www.fersystem.webcindario.com For: Juan Manuel Fernández Novoa Declaración general Para crear un dataset Dentro control button Código de conexión usamos la conexión Creamos un formulario como se ve a continuación insertamos control Button Y después insertamos el código que permita acceder SQLSERVER, para acceder demos tener un servidor SQLSERVER, un usuario con permisos y un nombre base datos. La parte donde se indica estos parámetros es:
-
Upload
juan-manuel-fernandez-novoa -
Category
Documents
-
view
64 -
download
0
Transcript of vb data por codigo
1
FERSYSTEM
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 caso de fecha y otros.
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.SqlConnection("server=FERSYSTEM-PC; user id=sa; password='';database=cole")REM crear una coneccion a sqlserverconexion.Open()REM abriendo la base datosDim Comando As New SqlClient.SqlDataAdapter("SELECT * FROM alumno", conexion)REM filtrando datos de una tablaComando.Fill(MiDataSet, "alumno")REM capturando valores a datasetComando = NothingREM confirmandoDim strTexto As String = ""' Recorremos las tablasDim RowFor Each Row In MiDataSet.Tables(0).RowsstrTexto += "alumno:" & Row(1).ToString() & " -- tiene: " & Row(2).ToString() & " años" & vbCrLfNextMessageBox.Show(strTexto)
End Sub
Para profundizar de este tema hay que tener en cuenta:
Sqlcliente.sqlConnectionSqlClient.SqlDataAdapter
[email protected] – www.fersystem.webcindario.comFor: Juan Manuel Fernández Novoa
Declaración generalPara crear un dataset
Dentro control buttonCódigo de conexiónusamos la conexión cliente sqlSERVER
Creamos un formulario como se ve a continuación insertamos control Button
Y después insertamos el código que permita acceder SQLSERVER, para acceder demos tener un servidor SQLSERVER, un usuario con permisos y un nombre base datos. La parte donde se indica estos parámetros es: Dim conexion As New SqlClient.SqlConnection("server=FERSYSTEM-PC; user id=sa; password='';database=cole")
1
FERSYSTEM
CONECTÁNDONOS MICROSOFT ACCESS
Para acceder a MS-ACCESS usaremos OLE DB, el proveedor Microsoft.ACE.OLEDB.12.0
Dim MiDataSet As New DataSet()
Private Sub Button1_Click() Handles Button1.ClickDim sqlstr As StringDim constr As StringDim conusua As OleDb.OleDbConnectionDim orden As OleDb.OleDbDataAdapterDim tabla As DataSet
sqlstr = "SELECT * from ingresos"constr = "Provider=Microsoft.ACE.OLEDB.12.0;data source=d:\vb\caja\micaja.accdb" Try conusua = New OleDb.OleDbConnection(constr) orden = New OleDb.OleDbDataAdapter(sqlstr, conusua) tabla = New DataSet orden.Fill(tabla, "ingresos")MsgBox(tabla.Tables("ingresos").Rows(0).Item(0) & "--" & 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
[email protected] – www.fersystem.webcindario.comFor: Juan Manuel Fernández Novoa
Creamos un formulario como se ve a continuación insertamos control Button
Y después insertamos el código que permita conectarnos una base datos en MS-Access, debemos saber donde está ubicado la base datos. En mi caso está en:d:\vb\caja\micaja.accdb
Declaración generalPara crear un dataset
Dentro control botón hay recodar que usara herramientas Oledb son las que nos permiten conectar MS-Access
1
FERSYSTEM
CONEXIÓN VIA ODBC Una de las ventajas de usar el conector vía origen datos ODBC nos permite acceder a varias base de datos, usando los DSN.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim sqlstr As StringDim constr As String'creando una conexion Dim conusua As Odbc.OdbcConnectionDim orden As Odbc.OdbcDataAdapter'prearando receptorDim tabla As DataSet' creando consultasqlstr = "SELECT * from ingresos"'parametro para acceder por ODBCconstr = "dsn=micaja"Try conusua = New Odbc.OdbcConnection(constr) orden = New Odbc.OdbcDataAdapter(sqlstr, conusua) tabla = New DataSet orden.Fill(tabla, "ingresos") MsgBox(tabla.Tables("ingresos").Rows(0).Item(0) & "--" & 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
[email protected] – www.fersystem.webcindario.comFor: Juan Manuel Fernández Novoa
Creamos un formulario como se ve a continuación insertamos control Button
Y después insertamos el código que permita conectarnos un origen datos ODBC, hay recodar que debemos crear nuestro DSN, seleccionando una base datos en mi caso mi DSN se llama micaja, utilizando controlador MS-Access
Dentro del control button1usaremos la herramientas Odbc con dos opciones: OdbcConnection y OdbcDataAdapter , esta permite abrir una base datos de forma directa
