[原创]ADO+EXCEL处理事例，实现快速输入！[精华版]

huanping98

先收下了

iflwx

谢谢提示

lbpp

可将      Dim cn As ADODB.Connection
     Dim rst As ADODB.Recordset

定义为public,然后写一个建立连接的过程和一个断开连接的过程。这样用到的时候只要去调用一下连接，写一写SQL语句就行了，不用每个过程中单独建立变量，然后再连接。

另外代码中多加些注释的话，对初学都会更好，也适合别人了解你的编程思路。

呵呵。

Public Conn As ADODB.Connection     '定义一个公共连接变量

Public Rst As ADODB.Recordset

Public Sub CreateConnect()
    '================================
    '
    '   创建新连接
    '
    '================================

    Dim ConnStr As String, SqlCommand As String
   
    'vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
    '
    '定义连接字符串
    '
    ConnStr = ""
    ConnStr = ConnStr & "Provider=SQLOLEDB;"
    ConnStr = ConnStr & "Password=****;"
    ConnStr = ConnStr & "User ID=**;"
    ConnStr = ConnStr & "Initial Catalog=rwgzdb;"
    ConnStr = ConnStr & "Data Source = 10.203.0.6" 'LZCSERVER"
   
    '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
    '建立连接
   
    Set Conn = New ADODB.Connection
   
    With Conn
        .ConnectionString = ConnStr
        .Open
    End With

End Sub

Public Sub CloseConnect()
'================================
'
'   断开连接
'
'================================
On Error Resume Next
    Conn.Close
    Set Conn = Nothing

End Sub

redlotus

学习中...

 

[em17]

wawjx_za

不错，值得学习，大家不要光看就溜

fokus

支持一下

tanwg

我都看不懂啊,我下载了,输入数据好像不行,还是我操作不当

zh131443

我觉得不错,有实用价值

gxzhiyu

[em22][em08][em17]

smhf_6

谢谢共享