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

我是初学者,请给个完整的例子,有EXCEL文件最好了!... 我是初学者,请给个完整的例子,有EXCEL文件最好了! 展开
 我来答
Q城里城外
推荐于2016-10-10 · TA获得超过4107个赞
知道小有建树答主
回答量:1077
采纳率:92%
帮助的人:128万
展开全部
  • 读取和写入操作方式一样,唯一不同的是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=DATABASENAME;Uid=admin;Pwd=admin;"
        cnn.Open conStr
       
        sqlstr = "SELECT * from tablename"
        rs.Open sqlstr, cnn
        Range("a2").CopyFromRecordset rs
        rs.Close
        cnn.Close

  End Sub

skyzxh

推荐于2018-05-10 · 知道合伙人软件行家
skyzxh
知道合伙人软件行家
采纳数:2623 获赞数:8344
毕业于中科院,硕士,30年工程从业经验。现任公司技术负责。

向TA提问 私信TA
展开全部
rptNo = Cells(10, "E") & Format(Cells(10, "F").Value, "0000") & Format(Cells(10, "G").Value, "0000")
conn.ConnectionString = "Driver={sql server};server=SVCTAG-JH5JL2X;uid=lims;pwd=;database=lims"
conn.ConnectionTimeout = 100
conn.Open
Sql = "select * from [M_CONSIGN] where ConsignNo='" & rptNo & "'"
rs.Open Sql, conn, adOpenKeyset, adLockOptimistic, adCmdText

If rs.EOF Then
MsgBox "未找到“" & rptNo & "”的号子!请核对。", 64, "提示"
conn.Close
Set rs = Nothing
Set conn = Nothing
Exit Sub
Else
rs.Fields("BookDate") = Cells(10, "J").Value
ys = rs.Fields("PayBefore")
If IsNull(ys) Then
rs.Fields("PayBefore") = Cells(25, "G")
Else
a = WorksheetFunction.Sum(yy, ys)
rs.Fields("PayBefore") = Val(ys) + yy
End If
If Cells(22, "E") - rs.Fields("PayBefore") <= 0 Then
rs.Fields("feiyongzhifu") = "已付清"
ElseIf IsNull(rs.Fields("PayBefore")) = True Or rs.Fields("PayBefore") = 0 Then
rs.Fields("feiyongzhifu") = "未付"
Else
rs.Fields("feiyongzhifu") = "未付清"
End If
End If
rs.UpdateBatch
本回答被网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
揭戈雅s2
2013-09-06 · TA获得超过514个赞
知道小有建树答主
回答量:8621
采纳率:0%
帮助的人:2323万
展开全部
我给你一个完整的例子
追问
好的,不过我要到晚上才可以上QQ,公司QQ被封了。
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 1条折叠回答
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式