当前位置: 代码迷 >> VB Dotnet >> VB.NET access数据库查询的有关问题
  详细解决方案

VB.NET access数据库查询的有关问题

热度:78   发布时间:2016-04-25 02:11:45.0
VB.NET access数据库查询的问题
各位大侠,首先请求各位把这个代码写出来,不要给我讲为什么。
我已建立好数据库.MDB,并已连接好

数据库的表名是”student“      段名是  ”性别“  我的目的是查询  ”男“  的所有数据

"SELECT * FROM student where 性别 = 男 ”

但语法不正确,希望大神把正确的代码贴上来就好,不要给我讲为什么!!

------解决思路----------------------
男的两边要加半角的单引号

"SELECT * FROM student where 性别 = '男' "; 
------解决思路----------------------
"SELECT * FROM student where 性别 = '男'”
假设你的性别是字符串类型的话。
------解决思路----------------------
引用:
"SELECT * FROM student where 性别 = '男'”
假设你的性别是字符串类型的话。

我觉得你很有必要先学习下SQL的语法,看看这个网站吧http://www.w3school.com.cn/sql/sql_select.asp
------解决思路----------------------

Try  
    Dim Apppath As String = Application.StartupPath '获取启动了应用程序的可执行文件的路径,不包括可执行文件的名称  
    Dim DatabasePath As String = Apppath & "\MyTest.mdb;" '数据库文件总路径名  
    Dim ConnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & DatabasePath & _  
        "Persist Security Info=False"  '连接字符串  
    'Dim ConnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\AccessDB1\bin\Debug\MyTest.mdb;;Persist Security Info=False"  
  
    Dim SqlStr As String = "select * FROM TestInfo  where 1=1 "  
    If Not String.IsNullOrEmpty(Trim(Me.txtName.Text)) Then '带条件查询  
        SqlStr &= " and XH like '%" & Trim(Me.txtName.Text) & "%' "  
    End If  
  
    Dim OleDbConn As OleDbConnection = New OleDbConnection(ConnString)  
    OleDbConn.Open()  
    Dim MyDataSet As DataSet = New DataSet()  
    Dim MyOleDataAdapter As OleDbDataAdapter = New OleDbDataAdapter()  
    MyOleDataAdapter.SelectCommand = New OleDbCommand(SqlStr, OleDbConn)  
    MyOleDataAdapter.Fill(MyDataSet)  
  
    Me.Dg.DataSource = MyDataSet.Tables(0) '绑定DataGrid数据源  
    MyOleDataAdapter.Dispose()  
    MyDataSet.Dispose()  
    OleDbConn.Close()  
    OleDbConn.Dispose()  
  
Catch ex As Exception  
    MessageBox.Show(ex.ToString)  
End Try  

供LZ参考!
  相关解决方案