当前位置:编程学习 > C#/ASP.NET >>

vb.net和SQL 数据库问题

我想通过一个文本框和一个按钮进行查询,所查询的结果要求在文本框中显示出来.
请各位大哥大姐指点一下. --------------------编程问答-------------------- 假定你的文本框的name为text1.
首先你要创建一个数据库连接的类和一个数据库操作函数并定义一个数据集!
数据集定义如下:
Public myds As DataSet

函数如下:
Public Function SqlToDs(ByVal sql As String) As DataSet
        Dim ada As OleDbDataAdapter = New OleDbDataAdapter(sql, DataLink1.connection)
        SqlToDs = New DataSet
        ada.Fill(SqlToDs)
        Return SqlToDs
    End Function
再在你的窗体中的按钮KICK事件中,
dim sql as string = "select 你要查询的字段 from 你在查询的表 where 你查询的条件"
myds = New DataSet
myds = SqlToDs(sql)
textbox1.txt = myds.Tables(0).Rows(0).Item(0)

注意以上为只查询了一个字段的! --------------------编程问答-------------------- 借用楼上函数,将文本框定义为多行显示

dim sql as string = "select 字段1 +" + "'|'" + "+ 字段2 from 表 where 条件" 
dim Tab1 as datatable
myds   =   New   DataSet 
myds   =   SqlToDs(sql) 
dim Tab1 as datatable=myds.table(0)
dim i as integer
if tab1.rows.count<1 then exit sub
for i=0 to tab1.rows.count-1
    textbox1.txt   +=   Tab1.Rows(i).Item(0) + chr(10) + chr(13)
next i
--------------------编程问答-------------------- 呵呵~~加油!!! --------------------编程问答-------------------- 谢谢各位大哥们,大姐们。我会加油的! --------------------编程问答-------------------- o(∩_∩)o...
补充:.NET技术 ,  VB.NET
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,