Imports System.Data.OleDb
Public Class Form1
Public ds As New DataSet("IA")
Public sqlconn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=temporal.mdb;")
Private cbcasos, cbdec As OleDbCommandBuilder
Private dacasos, dadec As New OleDbDataAdapter()
Public Sub conecta(ByVal sql As String, ByVal tabla As String, ByRef da As OleDbDataAdapter, ByRef cb As OleDbCommandBuilder)
sqlconn.open()
Dim cm As OleDbCommand = New OleDbCommand(sql, sqlconn)
da = New OleDbDataAdapter(cm)
cb = New OleDbCommandBuilder(da)
Try : ds.tables.remove(tabla) : Catch : End Try
da.Fill(ds, tabla)
sqlconn.Close()
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
conecta("select * from casos", "casos", dacasos, cbcasos)
' ds.Tables("casos").Rows.Clear()
datacasos.DataSource = ds
datacasos.DataMember = "casos"
End Sub
Private Sub hacer_arbol(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
[color=red] dacasos.Update(ds, "casos")[/color]
conecta("select resultado as [Valor de la decisión],count(resultado) as [Nº de Casos] from casos GROUP BY resultado", "decision", dadec, cbdec)
datadec.DataSource = ds
datadec.DataMember = "decision"
End Sub
End Class