vb.net 怎么获取数据表的特定字段的数据

[vinson985]

RT

[shockcqyc]

怎么个特定法?不懂你说的什么意思哈
我想你可能是想查询出数据表里的指定字段的值吧
这个是用查询语句的
比如:select 字段1,字段2 from 表 where 字段3=值1 and 字段4=值2......

[vinson985]

vb.net的程序怎么写？
就是那dataset datatable 之类的咋写呀？

[sglbaby]

selectCmd = "SELECT a from b "
myAdapter = New OleDbDataAdapter(selectCmd, conn)
myDataSet = New DataSet
myAdapter.Fill(myDataSet, "aaa")
myDataTable = myDataSet.Tables("kuaaari")
If myDataTable.Rows.Count > 0 Then

For i = 0 To myDataTable.Rows.Count - 1
msgbox myDataTable.Rows(i).Item("a")
Next
End If

[sglbaby]

我回答你了，结贴

[shockcqyc]

Imports System.Data
Imports System.Data.OleDb

CONN = ReadFile(FilePath)
Dim objConnection As New OleDbConnection(CONN)
Dim objcmd As OleDbCommand = New OleDbCommand(SQLString, objConnection)
objcmd.CommandType = CommandType.Text
objcmd.CommandTimeout = 270
Dim objDataAdapter As New OleDbDataAdapter()
Dim objDataset As New DataSet()

objDataAdapter.TableMappings.Add("Table", "TEMP")
objDataAdapter.SelectCommand = objcmd
If objConnection.State <> ConnectionState.Open Then
objConnection.Open() '打开数据库连接
End If
objcmd.ExecuteNonQuery() '执行SQL语句
If objConnection.State <> ConnectionState.Closed Then
objConnection.Close() '关闭数据库连接
End If
objDataAdapter.Fill(objDataset) '填充数据集
dim objdatatable as datatable=objDataset.Tables("TEMP")

[vinson985]

[Quote=引用 3 楼 sglbaby 的回复:]
selectCmd = "SELECT a from b "
myAdapter = New OleDbDataAdapter(selectCmd, conn)
myDataSet = New DataSet
myAdapter.Fill(myDataSet, "aaa")
myDataTable = myDataSet.Tables("kuaaari")
If myDataTable.Rows.Count > 0 Then

For i = 0 To myDataTable.Rows.Count - 1
msgbox myDataTable.Rows(i).Item…
[/Quote]


OleDbDataAdapter这个VS2005上面报错拉！

我创建了一个DATASET1.xsd的

[gh_li]

报啥错？

[charrote]

Dim ocM As CurrencyManager
ocM = CType(Me.BindingContext(DataSet1), CurrencyManager)
ocM.Position = i
Dim ds As New Binding("Text", DataSet1, "HV_DEPT.DEPTNM")
Me.PrintPreviewDialog1.Document = Me.PrintDocument1
Me.PrintPreviewDialog1.ShowDialog()
TextBox2.DataBindings.Clear()