谁能给我一个EXCEL VBA往SQL数据库读取和写入记录的例子？

读取和写入 *** 作方式一样，唯一不同的是sql语句，读取用select，读取用insert，以读取为例子，录入如下代码：

'sql完整例子

Sub testSql()

'定义连接对象

    Dim cnn As New ADODB.Connection

    Dim rs As New ADODB.Recordset

   

    '定义连接字符串

    Dim conStr As String

    Dim sqlstr As String

    '连接字符串-以下是连接MSSQL数据库

    conStr = "Provider=sqloledb" _

    &"Server=192.168.1.121" _

    &"Database=DATABASENAMEUid=adminPwd=admin"

    cnn.Open conStr

   

    sqlstr = "SELECT * from tablename"

    rs.Open sqlstr, cnn

    Range("a2").CopyFromRecordset rs

    rs.Close

    cnn.Close

End Sub

因为不存在这种写法，只有少数数据库能这样一次插入(比如mysql)，建议你分两条语句，如果一定要这样写，可以写成类似于这样

INSERT INTO tb_fl (编号,年,月,日,摘要,凭证号,一级科目,二级科目,借方发生额,贷方发生额)

select 4,'2019','3','27','期初余额','0','嘉峪关一店','嘉峪关二店',100,0

union all

select 4,'2019','3','27','期初余额','0','嘉峪关一店','石嘴山万达',0,0

---