关于vb.net查询列数的信息

VB.net 如何查询某值在DataSet的哪一行哪一列？

行列循环查询就可以了阿

网站的建设成都创新互联专注网站定制,经验丰富,不做模板,主营网站定制开发.小程序定制开发,H5页面制作!给你焕然一新的设计体验!已为展览展示等企业提供专业服务。

假如 DataSet1是你的 DataSet，见下面的代码

Dim db As DataTable = DataSet1.Tables("表名")

Dim c As Integer = db.Columns.Count - 1

Dim r As Integer = db.Rows.Count - 1

For i = 0 To r

For j = 0 To c

If db.Rows(r).Item(i) = "A" Then

MsgBox("行是:" i "列是:" j)

End If

vb.net 中如何使用SQL语句查询数据库中的数据

1、首先打开Visual Studio 2008代码窗口，添加引用。

2、输入以下代码：Public conn1 As SqlConnection = New SqlConnection 。

3、声明关键字 Public；（因为是全局变量，所以用Public 来声明）。

4、如果SQL 数据库就在本机，则用以下代码连接。

5、如果代码太长，影响可读性，可以用空格加"_"后，回车换行即可。

vb.net数据库查询

select * from 表 where

(case when 条件 then 1 else 0 end+

case when 条件 then 1 else 0 end+

case when 条件 then 1 else 0 end) BETWEEN 2 and 5

vb.net中怎样求DataGridView的行数和列数?

你是想获取总行数？还是选中行和列的索引？

获取总行数：dataGridView1.Rows.Count;

获取当前选中行索引：int

this.dataGridView1.CurrentRow.Index;

获取当前选中列索引：int

this.dataGridView1.CurrentCell.ColumnIndex;

VB.net怎么显示RichTextBox的行数、列数和总行数啊？

求行：

RichTextBox1.GetLineFromChar(RichTextBox1.SelStart)+1

这个代码呢，我的理解呢，是获取在selstart的地方的行数。一般来讲selstart的地方都是光标的地方，然后会给你返回line。不过返回的时候要自己加1。不是很懂这个语法，有懂得可以教我一下

以上是求行数。

求列：

For i = 0 To RichTextBox1.SelStart

If RichTextBox1.GetLineFromChar(RichTextBox1.SelStart) - RichTextBox1.GetLineFromChar(RichTextBox1.SelStart - i) 0 Then Exit For

j = j + 1

Next i

这个for循环呢，讲的是检查这一行光标前有多少个列，然后用J输出列的个数。

因为VB6.0没有RichTextBox1.GetFirstCharIndexOfCurrentLine这种语法。所以就得自己模拟这个过程。

具体怎么检查的呢，首先将 i 从0循环到光标处，

如果【光标字符数】处的行数减去【光标字符数减去 i 个字符数】处的行数小于0了，我写了个不为零。但此时写小于零就可以。那么代表着换行了，同时也代表着光标到上一行之间有多少字。用j存储循环次数，得出对应列数。（我们中文习惯是叫第一列，但程序实际上是第零列，但在循环的时候就注意到并解决这个问题了）

如果你替换写法，例如

If RichTextBox1.GetLineFromChar(RichTextBox1.SelStart) - RichTextBox1.GetLineFromChar(RichTextBox1.SelStart + i) 0 Then Exit For

j = j + 1

Next i

这个 J 就对应着光标到该行结尾有几个字符了，如果有需要可以使用，但一般不需要。

那么就像上面说的那样，行列都求出来了，最后用事件和TEXT或者caption表现出来就好了

至于说总行数

RichTextBox1.GetLineFromChar(Len(RichTextBox1.Text)) + 1

通过对最后一个字符的位置（总长度）的行来判断呗，不过也得加一。

vb.net 查询sql表中某一列的数据

Dim blUser As Boolean

Dim sql_conn As New SqlClient.SqlConnection("data source=.;initial catalog=test;user id=sa;password=123456;")

sql_conn.Open()

Dim sql_comm As New SqlClient.SqlCommand("Select user from table where user='123'", sql_conn)

Dim reader As SqlClient.SqlDataReader

reader = sql_comm.ExecuteReader

reader.Read()

If reader.HasRows Then

blUser = True

End If

reader.Close()

sql_conn.Close()

网站题目：关于vb.net查询列数的信息
分享网址：http://ybzwz.com/article/dssesjp.html