Skip to main content
sql As String on Muck Rack

sql As String

Is this you? As a journalist, you can create a free Muck Rack account to customize your profile, list your contact preferences, and upload a portfolio of your best work. Claim your profile

Get in touch with sql As

Contact sql As, search articles and posts on X, monitor coverage, and track replies from one place.

Learn more about Muck Rack

Actions

Share this page

Is this you?

As a journalist, you can create a free Muck Rack account to customize your profile, list your contact preferences, and upload a portfolio of your best work.
Claim your profile

Articles

VBA【代码】入库单：动态添加数据验证、日期控件、ListBox下拉框选择录入、记录集对象更新入库明细表

|
By sql As String, " ', rng As Range, currRow As Integer
| 360doc.com
冷茶视界 2024-03-28 发布于江苏 | 转藏 内容提要 入库单|完整代码 1、在工作表“入库单”里，命令按钮点击事件，调用相应过程： Dim dbs As StringDim tbl As String, sql As StringPrivate Sub CmdAddNew_Click() Call addNewEnd SubPrivate Sub CmdClear_Click() Dim rng As Range, currRow As Integer lastRow = Columns(1).Find(What:="合计", LookIn:=xlValues, LookAt:=xlPart).Row - 1 Set rng = Me.CmdClear.TopLeftCell currRow = rng.Row If currRow > 5 And currRow < =lastRow Then Range(Cells(currRow, 1), Cells(currRow, 8)).ClearContents End IfEnd SubPrivate Sub...
Open in Who Shared Issue with article?

Excel VBA【代码】采购明细汇总：WPS数据库连接字符串|类模块设置控件事件

|
By sql As String, supplierName As String, lastDate As Date
| 360doc.com
1、在myModule里，dataQuery自定义函数，执行SQL查询，把结果存到一个数组里： Function dataQuery(sql As String) Dim dbs As String Dim cnn As Object, rs As Object Dim strCnn As String Dim arr() dbs = ThisWorkbook.FullName Set cnn = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") '//如果高版本连接字符串出错，就尝试低版本的。 '//如果是使用WPS，它会使用低版本的连接字符串 On Error GoTo ErrorHandler strCnn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & dbs & ";Extended Properties='Excel 12.0;HDR=Yes;IMEX=2';" cnn.Open strCnn GoTo...
Open in Who Shared Issue with article?
See all 2 articles