菜鸟咨询下～～ 如何在VB里 执行SQL 语句～   
 想在VB里执行一段查询的SQL语句  要求点击一下按钮  执行出 查询结果～～ 求教大师～

使用控件，控件里数据表的地方可以使用SQL语句来代替。
使用代码，数据连接直接可以执行 SQL 命令。表 也可以执行SQL命令打开。

看你的代码形式。

就 下 问下 代码 怎么 写   的  我执行的  都报错  估计 写的 都不对  

你帖子中什么都没有提供，谁知道错在哪里呢？建议以后把主要代码贴上
网上例子很多，我们给你一个例子和你找到的例子不会有什么差别，你既然已经写出来了应该是有这样的例子了。
出错的原因很多，可能是前面数据库连接建立就有问题，也可能是SQL语言的问题。 一个很简单的方法就是在ACCESS或者SQL Server控制台去运行SQL语言，如果不报错，那就不是SQL语句的问题

    Dim LeafSqlConnection As SqlConnection  
    Dim LeafSqlCommand As SqlCommand
    Dim LeafSqlDataAdapter As SqlDataAdapter
    Dim LeafData As DataTable              

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
     
        'LeafSqlConnection = New SqlConnection("Initial Catalog=LENOVO-C4F87463 ;User ID=sa;PWD=123456")  
        LeafSqlCommand = New SqlCommand("select  * from  vw_xsdtl"）
        LeafSqlDataAdapter = New SqlDataAdapter
         = CommandType.Text
        LeafSqlDataAdapter.SelectCommand = LeafSqlCommand
        LeafData = New DataTable
        LeafSqlDataAdapter.Fill(LeafData)
        DataGridView1.DataSource = LeafData
    End Sub
End Class

测试 用的 SQL很简单   就是简单的查询一个表  

我常用的写法，用Adodc控件，不用设置直接粘贴代码，因英语水平差，基本用中文写
Private Sub Form_Activate()
  S = App.Path & "\LawStatute.mdb"   '数据库名称LawStatute，放在对应的编写程序夹内，为Access数据库
  Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source =" + Chr(34) + S + Chr(34) & ";Jet OLEDB:Database Password=chen3523;"  '打开有密码数据库，密码为“chen3523”
      Dim SQL As String
      SQL = "SELECT * FROM 文件表 "
       = adCmdunknow                'SQL必须用此句，否则会显示FROM子句出错
      Adodc1.RecordSource = SQL
      Adodc1.Refresh
        Set DataGrid1.DataSource = Adodc1        
End Sub

Private Sub Command1_Click()
      Dim SQL As String      
     my = Chr(34) + "%" + Trim$(Text1.Text) + "%" + Chr(34)
      SQL = "SELECT * FROM 文件表  where 文件名称 like " & my & " order by 发文时间 desc"
       = adCmdunknow                'SQL必须用此句，否则会显示FROM子句出错
      Adodc1.RecordSource = SQL
      Adodc1.Refresh
        Set DataGrid1.DataSource = Adodc1        
End Sub

 你这个代码好像是的，不是VB的吧。 代码没有给全，就这些代码的话，错误很多
 LeafSqlConnection .open没有，除非你在其他地方打开了，否则未建立有效数据连接谈什么数据库操作？
 另外connectionstring应该是这样的 ConStr = "data source=" & SV_Name & ";initial catalog=" & Pro_Name & ";integrated security=false;User ID=" & SV_UID & ";Password=" & SV_Pw。你少了SQL数据库服务器（主机）的名字
 LeafSqlCommand = New SqlCommand("select  * from  vw_xsdtl"）应该是 LeafSqlCommand = New SqlCommand("select  * from  vw_xsdtl",LeafSqlConnection） 少了第二个参数
 后面的貌似没有什么问题吧。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

绝对是 的代码，
看了半天，还以为是 全部是用类写的。仔细看函数名，才发现是 的代码。
按照我的理解，数据库，先要打开。没发现，也许是你注释掉的那行移到全局进行操作。
然后 使用这个连接来打开数据库。
看你后面的代码，无一涉及到 数据连接的使用。

风版不也在学习.net么，还没做到数据库这块？
他如果只是用DataGridView显示的话，这些代码应该也足够了