vb6.0中进行编程将TXT内容转成ACCESS的mdb怎么弄？

来源：百度知道 编辑：UC知道 时间：2024/06/07 01:18:34
各月降水量距平百分率
**************************************
* 年\月 : 1 2 3 4 5
*-------------------------------------*
* 1971 : -76 32 217 93 -76
* 1972 : 485 -65 15 -96 9
* 1973 : 172 -39 -62 148 52
* 1974 : -18 -59 41 101 21
* 1975 : -90 22 -67 116 -97
* :
对这个表进行转成MDB ACCESS数据库格式。
要求具有以下字段：年 ，月，降水量距平百分率三个字段。
希望哪位大侠帮帮忙。

创建mdb只用ADO还挺麻烦的,一般使用ADOX对象,使用以下方法,成功后用ADO对象打开.用后面的方法写入,不过你的分隔符号,的用":"及空格两种区分.字段也的相应修改.

Dim cat As New ADOX.Catalog
cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\new.mdb"

以下是MSDN里文本存入ADO对象里的过程.

Private Sub Class_Initialize()

Dim fld As ADODB.Field
Dim strRow As String
Dim strField As String
Dim intPos As Integer

Set rsCustomers = New ADODB.Recordset

With rsCustomers
' 将 CustomerID 设置为主键。
.Fields.Append "CustomerID", adChar, 5, adFldRowID
.Fields.Append "CompanyName", adChar, 40, adFldUpdatable
.Fields.Append "ContactName", adChar, 30, adFldUpdatable
.Fields.Append "ContactTitle", adChar, 30, adFldUpdatable
.Fields.Append "Address", adChar, 60, adFldUpdatable
.Fields.Append "City", adChar, 15, adFldUpdatabl