| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 7424 人关注过本帖
标题:菜鸟咨询下~~ 如何在VB里 执行SQL 语句~
只看楼主 加入收藏
西瓜shine
Rank: 2
等 级:论坛游民
帖 子:15
专家分:79
注 册:2016-7-22
收藏
得分:4 
这是我以前写的一个基于VB的SQL条件查询。你参考一下。
Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
        Dim con As New SqlConnection
        Dim cmd As New SqlCommand
        Dim dr As SqlDataReader
        Dim s As String
        Dim wendu As String
        Dim home As room
        Dim time As String
        wendu = TextBox6.Text.ToString
        Try
            con.ConnectionString = "server = USER-20150216TC\ZHOU;database = ZHOU;user id = sa;password=zhou;"
            s = "select room1,room2,co,red, tim from Table_1 " + "where room1>=" + "'" + wendu.ToString + "'" + "or room2>=" + "'" + wendu.ToString + "'"
            cmd.Connection = con
             = CommandType.Text
             = s
            con.Open()
            dr = cmd.ExecuteReader
            Do While dr.Read()
                home.wendu1 = dr.GetString(0)
                home.wendu2 = dr.GetString(1)
                home.co = dr.GetString(2)
                home.red = dr.GetString(3)
                time = dr.GetString(4)
                DataGridView1.Rows.Add(home.wendu1, home.wendu2, home.co, home.red, time)
            Loop
            con.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
2016-08-10 19:35
ZHRXJR
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:125
帖 子:1034
专家分:5519
注 册:2016-5-10
收藏
得分:4 
图片附件: 游客没有浏览图片的权限,请 登录注册
在【工程】-【引用】中引用这二个,这样才能在VB中操作数据库。
下面是一个示例,供参考:
程序代码:
Dim cn As New ADODB.Connection, RS As New ADODB.Recordset  '声明数据库连接对象 cn 与记录集对象 RS
cn.ConnectionString = strSQL   ' strSQL 是连接数据库的 SQL语句,例如连接Access数据库:
'strSQL = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\会员资料.mdb;Persist Security Info=False"
cn.Open    '这样VB就连接了数据库
RS.Open "select * from 会员表", cn, 3, 2  '连接到《会员表》的数据表,从而可以操作 RS 记录集
'在这里可以读取、修改、删除记录,例如下面是读取数据到文本框
Text1.Text = RS!姓名
Text2.Text = RS!性别
Text3.Text = RS!年龄
'....................
'读取完成后,关闭记录集对象与数据库连接对象
RS.Close
cn.Close

请不要选我!!!
2016-08-11 10:06
快速回复:菜鸟咨询下~~ 如何在VB里 执行SQL 语句~
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.047800 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved