Código vb:
En windows xp funciona bien, pero en windows 7 no. Alguien me puede indicar cual es el motivo?Ver original
Public Class Conexion Public Function DBConectar() As OleDbConnection Dim Ini As CIniClass Ini = New CIniClass Ini.Archivo = System.AppDomain.CurrentDomain.BaseDirectory() & "configuracion.ini" Dim base As String base = Ini.LeeIni("BaseDatos", "Base") Dim connetionString As String Dim cnn As OleDbConnection connetionString = "Provider=Microsoft.ACE.OLEDB.12.0 ; Data Source=" & base MsgBox(connetionString) cnn = New OleDbConnection(connetionString) DBConectar = cnn End Function Public Function consulta(ByVal qbusca As String, ByVal con As OleDbConnection) As System.Data.DataSet Dim oledbAdapter As New OleDbDataAdapter Dim ds As New DataSet oledbAdapter.SelectCommand = New OleDbCommand(qbusca, con) oledbAdapter.Fill(ds) oledbAdapter.Dispose() Return ds End Function End Class
asi es como la utilizo:
Código vb:
desde ya muchas gracias!!! Ver original
con = New Conexion cnn = con.DBConectar cnn.Open() ds = con.consulta("SELECT fecha, senia, cantidad,descripcion, precio, total FROM ventas WHERE nfactura = " & id, cnn) cnn.Close()