正文

vbscript将字段信息写入范围(代码片段)

author  author  2023-01-24  552

关键词：

Sub WriteFieldsInfoToRange(db As ADODB.Connection, startCell As Range, Optional tableName As String = vbNullString)
'Description: Writes name and other info of all fields of all or one selected table

Dim adoRecSet As ADODB.Recordset
Dim i         As Long
Dim j         As Long

'   if startCell consists of more then one cell then upper-left is used
    If startCell.Cells.Count > 1 Then startCell = startCell.Cells(1)

    Select Case tableName
        Case vbNullString 'no table name given -> output all tables
            Set adoRecSet = db.OpenSchema(adSchemaColumns)
        Case Else
            Set adoRecSet = db.OpenSchema(adSchemaColumns, Array(Empty, Empty, tableName, Empty))
    End Select
    
    i = 0
    With adoRecSet
      For j = 0 To .Fields.Count - 1
          startCell.Offset(i, j) = .Fields(j).Name
      Next j
      
      i = 1
      .MoveFirst
      Do While Not .EOF
          For j = 0 To .Fields.Count - 1
              startCell.Offset(i, j) = .Fields(j).Value
          Next j
          .MoveNext
          i = i + 1
      Loop
      .Close
    End With
    Set adoRecSet = Nothing

End Sub

正文

vbscript将字段信息写入范围(代码片段)

vbscript将标题写入范围(代码片段)

vbscript将记录集写入范围(代码片段)

vbscript将记录集写入范围(代码片段)

vbscript将recordset列写入范围(代码片段)

vbscript数据加载控制器-将静态值映射到字段(代码片段)

vbscript连接范围选择(代码片段)

vbscript字段(代码片段)

vbscript在excelvba中读取和写入文件(代码片段)

vbscript计算范围内不是空单元格(代码片段)

vbscript查找范围中的最后一行(代码片段)

vbscript查找范围中的最后一列(代码片段)

vbscript检查覆盖范围，执行保费计算，从其他保险范围中提取dd(代码片段)

vbscript在范围之后使用字符串查找单元格(代码片段)

vbscript计算使用范围内的行数和列数！(代码片段)

vbscript符号字段转换正常(代码片段)

php将字段写入数据库(代码片段)

vbscript从32位应用程序读取和写入64位注册表(代码片段)

vbscript各种自定义代码片段-有关详细信息，请参阅注释(代码片段)