Visual Basic.NET - ODBC Connection

 
Vista:

ODBC Connection

Publicado por Mazen A.K (1 intervención) el 03/04/2007 00:53:23
amigos tengo la siguiente duda... en la version de VB 6.0 yo creaba una conexion a una base de datos creando primeramente una cuenta en Data Sources (ODBC) apuntando a una base de datos en espec'ifica y luego dentro del proyecto de VB apuntaba el ODBC Connection a dicho data source. Adicionalmente usaba el siguiente codigo para visualizar datos dentro de la aplicacion: Ejemplo

Clave1 = CDbl(txtHTD.Text)
Adodc2.CommandType = adCmdText ' Maestro
sql = "select * from MAESTRO where HTD = " & Clave1 ' & "'"
Adodc2.RecordSource = sql
Adodc2.Refresh
' Adodc2.Recordset.Update

If Adodc2.Recordset.EOF Then
Adodc2.Recordset.AddNew
End If

Adodc2.Recordset.Fields(0) = UCase(txtHTD.Text)
Adodc2.Recordset.Fields(1) = UCase(txtDe.Text)
Adodc2.Recordset.Fields(2) = UCase(txtPara.Text)
Adodc2.Recordset.Fields(3) = CDate(txtFecha.Text)
Adodc2.Recordset.Fields(4) = UCase(txtRemi.Text)
Adodc2.Recordset.Fields(5) = UCase(txtOb)
Adodc2.Recordset.Fields(6) = Text2.Text
Adodc2.Recordset.Update

pero ahora estoy disenando una aplicacion en VB.NET y necesito visualizar data. ya cree el Data Source, agregue un ODBC Connection (OdbcConnection1) lo conecte con el DataSource (ConnectionString:DSN=ccc;DefaultDir=D:\;DriverId=25;DBQ=D:\bdPtoFijo.mdb;MaxBufferSize=2048;FIL=MS Access;PageTimeout=5;UID=admin) de forma exitosa. lo q necesito es saber cual codigo usar para buscar y visualizar data en la aplicacion que estoy creando, mediante esta conexion... espero me ayuden gracias....
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:ODBC Connection

Publicado por Andres (2 intervenciones) el 03/04/2007 19:11:52
Bueno ahi si entendi bien lo que estas solicitando ahi te va lo que yo hice:
Esto lo declare en un modulo.
Imports System.Data.Odbc
Public Sub InsertRow(ByVal myConnectionString As String, ByVal myInsertQuery As String)
If myConnectionString = "" Then
MsgBox("FALTA PARAMETRO DE CONEXION")
Exit Sub
End If
Dim myConn As New OdbcConnection(myConnectionString)
Dim myOdbcCommand As New OdbcCommand(myInsertQuery)
myOdbcCommand.Connection = myConn
myConn.Open()
myOdbcCommand.ExecuteNonQuery()
myConn.Close()
End Sub
Public Sub cargarDataset(ByVal sentencia As String, ByVal cadenaconexion As String, _
ByRef oDataset As DataSet, ByVal tabla As String)
Dim myConnection As New OdbcConnection(cadenaconexion)
'declaracion del adaptere
Dim adapter As New OdbcDataAdapter(sentencia, cadenaconexion)
'abre la conexion
myConnection.Open()
' llenar con el adaptador el dataset
adapter.Fill(oDataset, tabla)
' cierra la conexion
myConnection.Close()
End Sub
despues lo mando a llamar cada vez que quiera en el sistema de esta manera atravez de una Sentencia.

valor = "Select * from tblNombreTabla where condicion='" +Tex1.text + "'"
Me.sentencia = valor
'creando conexion
Me.tabla = "tblPapeletas"
Me.oDataSet = New DataSet()
cargarDataset(Me.sentencia, Me.cadenaconexion, Me.oDataSet, Me.tabla)
Me.DataGrid.DataSource = Me.oDataSet
Me.DataGrid.DataMember = "tblNombreTabla"
Ahi a donde mando a llamar la informacion es en un datagrid
espero que sea lo que necesitas! cualquier cosa estoy a tus ordenes
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar