Question

Excel 怎样用VBA将数据导入到SQL数据库

Answer 1

sub test()
Set cnn = CreateObject("ADODB.Connection")  

Set rs = CreateObject("Adodb.Recordset")strCn= "Provider=sqloledb;Server=R9HDET7;Database=dbname;Uid=username;Pwd=password"
    cnn.Open strCn   
    SQL = ""
     cnn.Open strCn '与数据库建立连接，如果成功，返回连接对象cn
    rs.Open SQL , cn '执行strSQL所含的SQL命令，结果保存在rs记录集对象中    
    cnn.Close
    Set cnn = Nothing

end sub

请参考

连接数据库后，通过写SQL语句实现增删改查