110,570
社区成员
发帖
与我相关
我的任务
分享
Public Function ss(ByVal Filename As String, ByVal iniSection As String) As Boolean
If Not File.Exists(Filename) Then
'MsgBox("文件 " & iniFile & " 未找到,请确认路径和文件名是否正确!")
Return False
End If
Dim iniRead As New StreamReader(Filename)
Dim iniStr As String = iniRead.ReadToEnd
Dim i As Integer
Dim cLine As Integer
Dim getValue As String = ""
Dim cLst
cLst = iniStr.Split(Chr(13))
cLine = UBound(cLst)
Dim sqltext As String = cLst(0)
sqltext = "create table " & "你的表名字" & "(" & sqltext.Replace(Chr(9), " varchar2,") & " varchar2)"
'varchar2为缺省的数据类型,有变化的自己调整
'执行sqltext中的语句,具体代码略
For i = 1 To cLine
sqltext = "insert into " & "你的表名字" & "(" & cLst(0).Replace(Chr(9), ",") & ") values ('" & cLst(i).Replace(Chr(9), "','") & "')"
'执行sqltext中的语句,具体代码略
Next
Return True
End Function