VB.NET 与Access数据库连接的确切语句,该怎么解决
VB.NET 与Access数据库连接的确切语句
新手上路,请各位大虾帮帮忙,VB.NET 与Access数据库连接的确切语句是什么??
------解决方案--------------------
这是个简单的例子,网上有很多啊.
Imports System.Data
Imports System.Data.OleDb
Public Class Form1
Dim conn As OleDbConnection
Dim da As OleDbDataAdapter
Dim ds As DataSet
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
conn = New OleDbConnection( "Provider=Microsoft.Jet.OleDb.4.0;Data Source=D:\data.mdb ")
conn.Open()
Dim strSQL As String = "SELECT * FROM 表1 "
da = New OleDbDataAdapter(strSQL, conn)
ds = New DataSet
Dim count As Int32 = da.Fill(ds)
DataGridView1.DataSource = ds.Tables(0)
End Sub
End Class
------解决方案--------------------
Dim objConn As New OleDb.OleDbConnection
Dim objComm As New OleDb.OleDbCommand
Dim objda As New OleDb.OleDbDataAdapter
Dim objds As New DataSet
objConn.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " + IO.Directory.GetCurrentDirectory + "\数据库.mdb "
'objComm.CommandText = "select 自动号 as 工作,姓名 as 老婆 from 我的表 "
objComm.CommandText = "select * from 我的表 "
objComm.Connection = objConn
objda.SelectCommand = objComm
objConn.Open()
objda.Fill(objds)
objConn.Close()
objds.Tables(0).DefaultView.AllowNew = False
DataGrid1.DataSource = objds.Tables(0)
Dim myTableStyle = New DataGridTableStyle
DataGrid1.TableStyles.Clear()
'定义datagrid1需要的格式表
myTableStyle.MappingName = objds.Tables(0).ToString
'设置数据源
Dim myColumnStyle1 = New DataGridTextBoxColumn
myColumnStyle1.MappingName = "自动号 "
myColumnStyle1.HeaderText = "编号 "
Dim myColumnStyle2 = New DataGridTextBoxColumn
myColumnStyle2.MappingName = "姓名 "
myColumnStyle2.HeaderText = "老婆 "
'将ID 翻译成 编号
myTableStyle.GridColumnStyles.Add(myColumnStyle1)
myTableStyle.GridColumnStyles.Add(myColumnStyle2)
DataGrid1.TableStyles.Add(myTableStyle)
Dim b As New System.Text.StringBuilder
Dim mResult As String = b.ToString
For Each c As DataColumn In objds.Tables(0).PrimaryKey
b.Append(c.ColumnName)
Exit For
b.Append( " ")
'mResult = mResult.Substring(0, mResult.Length - 1)
Next
MsgBox(mResult)
------解决方案--------------------
我用的是VWD，数据库放在e:\website1\app_data\baoxiu.mdb
代码是
Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim mXy As String = DropDownList1.Text
Dim mQy As String = DropDownList2.Text
Dim mDong As String = TextBox5.Text
Dim mFh As String = TextBox6.Text
TextBox2.Text = TimeOfDay()
Dim cn As New System.Data.OleDb.OleDbConnection
cn.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " + "e:\website1\App_Data\baoxiu.mdb "
Dim cmd As New System.Data.OleDb.OleDbCommand
新手上路,请各位大虾帮帮忙,VB.NET 与Access数据库连接的确切语句是什么??
------解决方案--------------------
这是个简单的例子,网上有很多啊.
Imports System.Data
Imports System.Data.OleDb
Public Class Form1
Dim conn As OleDbConnection
Dim da As OleDbDataAdapter
Dim ds As DataSet
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
conn = New OleDbConnection( "Provider=Microsoft.Jet.OleDb.4.0;Data Source=D:\data.mdb ")
conn.Open()
Dim strSQL As String = "SELECT * FROM 表1 "
da = New OleDbDataAdapter(strSQL, conn)
ds = New DataSet
Dim count As Int32 = da.Fill(ds)
DataGridView1.DataSource = ds.Tables(0)
End Sub
End Class
------解决方案--------------------
Dim objConn As New OleDb.OleDbConnection
Dim objComm As New OleDb.OleDbCommand
Dim objda As New OleDb.OleDbDataAdapter
Dim objds As New DataSet
objConn.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " + IO.Directory.GetCurrentDirectory + "\数据库.mdb "
'objComm.CommandText = "select 自动号 as 工作,姓名 as 老婆 from 我的表 "
objComm.CommandText = "select * from 我的表 "
objComm.Connection = objConn
objda.SelectCommand = objComm
objConn.Open()
objda.Fill(objds)
objConn.Close()
objds.Tables(0).DefaultView.AllowNew = False
DataGrid1.DataSource = objds.Tables(0)
Dim myTableStyle = New DataGridTableStyle
DataGrid1.TableStyles.Clear()
'定义datagrid1需要的格式表
myTableStyle.MappingName = objds.Tables(0).ToString
'设置数据源
Dim myColumnStyle1 = New DataGridTextBoxColumn
myColumnStyle1.MappingName = "自动号 "
myColumnStyle1.HeaderText = "编号 "
Dim myColumnStyle2 = New DataGridTextBoxColumn
myColumnStyle2.MappingName = "姓名 "
myColumnStyle2.HeaderText = "老婆 "
'将ID 翻译成 编号
myTableStyle.GridColumnStyles.Add(myColumnStyle1)
myTableStyle.GridColumnStyles.Add(myColumnStyle2)
DataGrid1.TableStyles.Add(myTableStyle)
Dim b As New System.Text.StringBuilder
Dim mResult As String = b.ToString
For Each c As DataColumn In objds.Tables(0).PrimaryKey
b.Append(c.ColumnName)
Exit For
b.Append( " ")
'mResult = mResult.Substring(0, mResult.Length - 1)
Next
MsgBox(mResult)
------解决方案--------------------
我用的是VWD，数据库放在e:\website1\app_data\baoxiu.mdb
代码是
Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim mXy As String = DropDownList1.Text
Dim mQy As String = DropDownList2.Text
Dim mDong As String = TextBox5.Text
Dim mFh As String = TextBox6.Text
TextBox2.Text = TimeOfDay()
Dim cn As New System.Data.OleDb.OleDbConnection
cn.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " + "e:\website1\App_Data\baoxiu.mdb "
Dim cmd As New System.Data.OleDb.OleDbCommand