Ver Mensaje Individual
  #13 (permalink)  
Antiguo 30/06/2005, 10:22
Avatar de Jose_minglein2
Jose_minglein2
 
Fecha de Ingreso: noviembre-2004
Mensajes: 2.344
Antigüedad: 20 años, 4 meses
Puntos: 8
No me refería a eso exactamente, me refería a esto:
Código PHP:
Dim ds As New DataSet
    Dim ol 
As New OleDb.OleDbDataAdapter
    Dim cn 
As New ADODB.Connection
    Dim rs2 
As New ADODB.Recordset
    
Private Sub Datos_Ver_Load(ByVal sender As System.ObjectByVal e As System.EventArgsHandles MyBase.Load
        Me
.Top = (frm1.Height 2) + frm1.Top - (Me.Height 2)
        
Me.Left = (frm1.Width 2) + frm1.Left - (Me.Width 2)
        
cn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" nombrebase ";Persist Security Info=False")  ' note 5323 is the name of dbase 
        rs2.Open(tablanombre, cn, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)

'
Aquí buscamos los tipos de las columnas:

dim i as integer 0
while tablanombre.Columns.Count
if tablanombre.Columns(i).DataType System.Type.GetType("System.DateTime"then
tablanombre
.Columns(i).DefaultValuenow()
end if
i+=1
end 
while 
        
ds.Tables.Add(tablanombre)
        
ol.Fill(ds.Tables(tablanombre), rs2)
        
ds.DataSetName cn.ConnectionString
        Me
.MSGrid.DataSource ds.Tables(tablanombre)
        
cn.Close()
    
End Sub 
Lo que pasa es que no se si te dejará hacer eso, al tener el datatable ya datos.

¿Entiendes lo que te quiero decir???