1
Imports
System.Data.OleDb
2![None.gif](/Images/OutliningIndicators/None.gif)
3![ExpandedBlockStart.gif](/Images/OutliningIndicators/ExpandedBlockStart.gif)
Public
Class Form1
Class Form1
4![InBlock.gif](/Images/OutliningIndicators/InBlock.gif)
5![ExpandedSubBlockStart.gif](/Images/OutliningIndicators/ExpandedSubBlockStart.gif)
Private Sub Form1_Load()Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
6
Dim cnn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Documents and Settings\Administrator\My Documents\mydata.mdb")
7
Dim cmd As New OleDbCommand("CREATE TABLE person (name varchar(20),sex varchar(6),id int primary key)", cnn)
8
Dim adapter As OleDbDataAdapter
9
Dim dst As New DataSet
10
Try
11
cnn.Open()
12
cmd.ExecuteNonQuery()
13
cmd.CommandText = "insert into person values('zzq','male',1)"
14
cmd.ExecuteNonQuery()
15
cmd.CommandText = "select * from person"
16
adapter = New OleDbDataAdapter(cmd)
17
adapter.Fill(dst)
18
DataGridView1.DataSource = dst.Tables(0).DefaultView
19
cnn.Close()
20
Catch ex As Exception
21
MessageBox.Show(ex.Message)
22
End Try
23
End Sub
24![InBlock.gif](/Images/OutliningIndicators/InBlock.gif)
25
26
End Class
27
目前access中的控制命令好像只有create table,alter table,create index,还有drop 。不过网上有说可以用CREATE PROCEDURE 创建存储过程,我一直没有找到。我用的是是access 2003+Microsoft Jet 4.0 Service Pack 8
![None.gif](/Images/OutliningIndicators/None.gif)
2
![None.gif](/Images/OutliningIndicators/None.gif)
3
![ExpandedBlockStart.gif](/Images/OutliningIndicators/ExpandedBlockStart.gif)
![ContractedBlock.gif](/Images/OutliningIndicators/ContractedBlock.gif)
4
![InBlock.gif](/Images/OutliningIndicators/InBlock.gif)
5
![ExpandedSubBlockStart.gif](/Images/OutliningIndicators/ExpandedSubBlockStart.gif)
![ContractedSubBlock.gif](/Images/OutliningIndicators/ContractedSubBlock.gif)
6
![InBlock.gif](/Images/OutliningIndicators/InBlock.gif)
7
![InBlock.gif](/Images/OutliningIndicators/InBlock.gif)
8
![InBlock.gif](/Images/OutliningIndicators/InBlock.gif)
9
![InBlock.gif](/Images/OutliningIndicators/InBlock.gif)
10
![InBlock.gif](/Images/OutliningIndicators/InBlock.gif)
11
![InBlock.gif](/Images/OutliningIndicators/InBlock.gif)
12
![InBlock.gif](/Images/OutliningIndicators/InBlock.gif)
13
![InBlock.gif](/Images/OutliningIndicators/InBlock.gif)
14
![InBlock.gif](/Images/OutliningIndicators/InBlock.gif)
15
![InBlock.gif](/Images/OutliningIndicators/InBlock.gif)
16
![InBlock.gif](/Images/OutliningIndicators/InBlock.gif)
17
![InBlock.gif](/Images/OutliningIndicators/InBlock.gif)
18
![InBlock.gif](/Images/OutliningIndicators/InBlock.gif)
19
![InBlock.gif](/Images/OutliningIndicators/InBlock.gif)
20
![InBlock.gif](/Images/OutliningIndicators/InBlock.gif)
21
![InBlock.gif](/Images/OutliningIndicators/InBlock.gif)
22
![InBlock.gif](/Images/OutliningIndicators/InBlock.gif)
23
![ExpandedSubBlockEnd.gif](/Images/OutliningIndicators/ExpandedSubBlockEnd.gif)
24
![InBlock.gif](/Images/OutliningIndicators/InBlock.gif)
25
![InBlock.gif](/Images/OutliningIndicators/InBlock.gif)
26
![ExpandedBlockEnd.gif](/Images/OutliningIndicators/ExpandedBlockEnd.gif)
27
![None.gif](/Images/OutliningIndicators/None.gif)