submain.bas

将数据从excel导入到SQLSEVER库中

Attribute VB_Name = "submain"
Option Explicit

Public TelNumbers As String
Public ConnectString As String
Public agentid As String
Public strresult As String
Public conn As ADODB.Connection
Public blMonitor As Boolean

Sub main()

Set conn = New ADODB.Connection

Dim rs As ADODB.Recordset
Dim constr As String
constr = GetSetting("test", "db", "ConnectString")
'constr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=gmcp;Data Source=127.0.0.1"
conn.CursorLocation = adUseClient
conn.ConnectionString = constr
conn.ConnectionTimeout = 300
conn.Open
App.Title = "数据导入导出管理"
frmmain.Show

End Sub