能用vb.net在access里建表。谢谢大神。

童鞋，我见过你，上次帮过你做了个注册的，想必你想出是怎么做到的了吧

有access数据库 执行sql命令就行了，creat datatable

Sub 建立数据表()
Dim dbConnection As OleDbConnection = New OleDbConnection(dbConnectionString)
dbConnection.Open()
Dim CmdString As String = "CREATE TABLE 交易数据表(股票代码 char(6)) "
Dim cmd As OleDbCommand = New OleDbCommand(CmdString, dbConnection)
cmd.ExecuteNonQuery()
CmdString = "ALTER TABLE 交易数据表 ADD COLUMN "
CmdString = CmdString & "买入日期 char(10), 卖出日期 char(10), 买入价 Single, 卖出价 Single, "
CmdString = CmdString & " 持有天数 Int, 盈亏 Single, 技术指标参数 char(20) "
cmd = New OleDbCommand(CmdString, dbConnection)
cmd.ExecuteNonQuery()
dbConnection.Close()
End Sub
Private Sub 数据整理_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 数据整理.Click
Dim dbConnection As OleDbConnection = New OleDbConnection(dbConnectionString)
dbConnection.Open()
Dim CmdString As String = ""
Dim cmd As OleDbCommand
Dim schemaTable As DataTable = dbConnection.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, "TABLE"})
For i = 0 To schemaTable.Rows.Count - 1
If schemaTable.Rows(i)!TABLE_NAME.ToString = "交易数据表" Then
cmd = New OleDbCommand("DROP TABLE 交易数据表", dbConnection)
cmd.ExecuteNonQuery()
End If
Next
dbConnection.Close()
建立数据表()
Dim adapter As OleDbDataAdapter = New OleDbDataAdapter("SELECT * FROM 交易数据表 ORDER BY 技术指标参数,股票代码 ", dbConnection)
Dim cmdbuilder As New OleDb.OleDbCommandBuilder(adapter)
Dim DataSet As DataSet = New DataSet
adapter.Fill(DataSet, "交易数据表")
adapter.InsertCommand = cmdbuilder.GetInsertCommand
Dim 日线文件集 As System.Collections.ObjectModel.ReadOnlyCollection(Of String) = My.Computer.FileSystem.GetFiles(日线数据目录, FileIO.SearchOption.SearchAllSubDirectories, "*.TXT")
ProgressBar1.Minimum = 1
ProgressBar1.Maximum = 日线文件集.Count + 1
ProgressBar1.Visible = True
Dim BarValue As Integer = 0
Dim 股票代码 As String
Dim 日线数据记录数 As Integer
Dim 交易数据记录数 As Integer
Dim 行_交易数据 As DataRow
For Each 日线文件 As String In 日线文件集
股票代码 = Mid(My.Computer.FileSystem.GetFileInfo(日线文件).Name, 3, 6)
日线数据记录数 = 读取日线数据(日线文件) '读取日线数据到数组
交易数据记录数 = 整理技术及交易数据(日线数据记录数) '整理技术交易数据到数组
For J = 1 To 交易数据记录数
行_交易数据 = DataSet.Tables("交易数据表").NewRow()
With 行_交易数据
.Item("股票代码") = 股票代码
.Item("买入日期") = 记录_交易数据(J).买入日期
.Item("卖出日期") = 记录_交易数据(J).卖出日期
.Item("买入价") = 记录_交易数据(J).买入价
.Item("卖出价") = 记录_交易数据(J).卖出价
.Item("持有天数") = 记录_交易数据(J).持有天数
.Item("盈亏") = 100 * (记录_交易数据(J).卖出价 - 记录_交易数据(J).买入价) / 记录_交易数据(J).买入价
.Item("技术指标参数") = 记录_交易数据(J).技术指标参数
DataSet.Tables("交易数据表").Rows.Add(行_交易数据)
End With
Next
adapter.Update(DataSet, "交易数据表")
BarValue = BarValue + 1
ProgressBar1.Value = BarValue
Next
ProgressBar1.Visible = False
DataSet.Dispose()
adapter.Dispose()
End Sub