Hola DKain, estube probando con los ejemplos que pusiste pero no me funciona
Código:
Dim cn As New SqlConnection()
Dim CustomersDataSet As New DataSet()
Dim da As SqlDataAdapter
Dim dr As DataRow
Dim cmdBuilder As SqlCommandBuilder
Public Sub sql_seleccionar(ByVal consulta As String)
cn.ConnectionString = "Server=localhost;Database=bd;UID=user;PWD=pass;"
cn.Open()
da = New SqlDataAdapter(consulta, cn)
cmdBuilder = New SqlCommandBuilder(da)
da.Fill(CustomersDataSet, "Customers")
MsgBox(CustomersDataSet.Tables("Customers").Rows(0)(0))
cn.Close()
End Sub
No me funciona, se tranca el programa y no hace nada, puse un breakpoint en cn.open y llega hasta ahi, pero da = New SqlDataAdapter(consulta, cn), no hace nada, no llega hacia esa linea.