Dim objAdapter as New OleDbDataAdapter("SELECT * FROM users", objConn)
Dim ds as Dataset = New DataSet()objAdapter.Fill(ds, "users")
objAdapter.TableMappings.Add("adbtable", "users")With objAdapter.TableMappings(0).ColumnMappings .Add("PID", "ID") .Add("LastName", "LName") .Add("StreetAddress", "Addy")End WithobjAdapter.Fill(ds)


0 comments:
Post a Comment