表格操作系列

四、字段名与字段别名的获取

在使用数据库编程时，经常需要在别名与字段名之间做一些操作，字段名一般使用英文字符，别名一般使用中文字符，这样就可以满足显示与数据库操作两不误的需要。但是在写代码时，使用别名，数据库又不认，使用字段名写代码又不太方便，两者兼顾时容易出错。下面的代码，可以很好的实现字段名与别名之间的操作。
将字段名与别名存储在一个表中，按列存好，可以在编程时先行定义，这样也可以避免在使用时出现混乱。在写代码时，可以使用别名对字段名进行自动引用，具体见以下函数。

单字段操作

Public Function FieToAli(Fie As String, Optional Sh As String = "INI") As String
Dim Rng As Range
Dim co As IntegerIf Sh = "" Then Sh = ActiveSheet.Name
With ThisWorkbook.Sheets(Sh)Set Rng = .Range("1:1").Find("别名", lookat:=xlWhole)If Not Rng Is Nothing Then co = Rng.ColumnSet Rng = .Range("1:1").Find("字段", lookat:=xlWhole)If Not Rng Is Nothing ThenSet Rng = .Range(Chr(64 + Rng.Column) & ":" & Chr(64 + Rng.Column)).Find(Fie, lookat:=xlWhole)If Not Rng Is Nothing Then FieToAli = .Cells(Rng.Row, co): Exit FunctionEnd If
End With
End FunctionPublic Function AliToFie(Ali As String, Optional Sh As String = "INI") As String
Dim Rng As Range
Dim co As IntegerIf Sh = "" Then Sh = ActiveSheet.Name
With ThisWorkbook.Sheets(Sh)Set Rng = .Range("1:1").Find("字段", lookat:=xlWhole)If Not Rng Is Nothing Then co = Rng.ColumnSet Rng = .Range("1:1").Find("别名", lookat:=xlWhole)If Not Rng Is Nothing ThenSet Rng = .Range(Chr(64 + Rng.Column) & ":" & Chr(64 + Rng.Column)).Find(Ali, lookat:=xlWhole)If Not Rng Is Nothing Then AliToFie = .Cells(Rng.Row, co): Exit FunctionEnd If
End With
End FunctionPublic Function FiesToAli(Fies As String, Optional Sh As String = "INI") As String
Dim Rng As Range
Dim co As Integer
Dim 字段 As StringDim i As Integer
Dim sp() As String
If Sh = "" Then Sh = ActiveSheet.Name
sp = Split(Fies, ",")
If UBound(sp) = 0 Then Exit FunctionWith ThisWorkbook.Sheets(Sh)Set Rng = .Range("1:1").Find("别名", lookat:=xlWhole)If Not Rng Is Nothing Then co = Rng.ColumnSet Rng = .Range("1:1").Find("字段", lookat:=xlWhole)If Not Rng Is Nothing Then字段 = Chr(64 + Rng.Column) & ":" & Chr(64 + Rng.Column)For i = 0 To UBound(sp)Set Rng = .Range(字段).Find(sp(i), lookat:=xlWhole)If Not Rng Is Nothing Then Fies = Replace(Fies, sp(i), .Cells(Rng.Row, co))NextEnd If
End WithFiesToAli = Fies
End Function

多字段操作

Public Function AlisToFie(Alis As String, Optional Sh As String = "INI") As String
Dim Rng As Range
Dim co As Integer
Dim 别名 As StringDim i As Integer
Dim sp() As String
sp = Split(Alis, ",")
If UBound(sp) = 0 Then Exit Function
If Sh = "" Then Sh = ActiveSheet.Name
With ThisWorkbook.Sheets(Sh)Set Rng = .Range("1:1").Find("字段", lookat:=xlWhole)If Not Rng Is Nothing Then co = Rng.ColumnSet Rng = .Range("1:1").Find("别名", lookat:=xlWhole)If Not Rng Is Nothing Then别名 = Chr(64 + Rng.Column) & ":" & Chr(64 + Rng.Column)For i = 0 To UBound(sp)Set Rng = .Range(别名).Find(sp(i), lookat:=xlWhole)If Not Rng Is Nothing Then Alis = Replace(Alis, sp(i), .Cells(Rng.Row, co))NextEnd If
End WithAlisToFie = Alis
End Function

配置表样子

调用例子

Sub aa()
MsgBox FieToAli("dataname") & vbCrLf & _AliToFie("数据库名") & vbCrLf & _FiesToAli("dataname,username") & vbCrLf & _AlisToFie("数据库名,密码")
End Sub

返回值

表格操作系列未完，待续！

——专注办公软件的二次开发及培训，你有问题，我有思路！
——微博、微信、CSDN同号：w_dexu。
——转载请注明出处！
扫码加微信

表格操作系列——字段名与字段别名的获取相关推荐

SQL获取所有用户名,数据库名、所有表名、所有字段名及字段类型
SQL获取所有用户名,数据库名.所有表名.所有字段名及字段类型2009-03-14 10:481.获取所有用户名:SELECT name FROM Sysusers where status='2' ...
% mysql 代表_MySQL中的星号（*）和百分号（%）代表表示什么，MySQL的库名、表名、字段名、字段值是否区分大...
1.MySQL中的星号(*)和百分号(%)代表表示什么星号(*):表示全部的意思. select * from table_name;(查询表table_name中所有的数据) 百分号(%):表示通 ...
SQL语句获取数据库名、所有表名、所有字段名及字段类型
SQL语句获取所有用户名,数据库名.所有表名.所有字段名及字段类型,方法来自于网上,稍加修改 1.获取所有用户名: SELECT name FROM Sysusers where status='2' ...
oracle 查询表字段6,Oracle 查询库中所有表名、字段名、字段名说明，查询表的数据条数、表名、中文表名、...
--创建用户 create user "用户名" identitied by "密码": --给自己修改密码查询所有表名: select t.table_na ...
【Hibernate】Hibernate中查询表名、字段名以及字段类型等信息
Hibernate中查询表名.字段名以及字段类型等信息的工具类 package com.lmb.ui.util;import org.hibernate.cfg.Configuration; impo ...
Oracle 查询库中所有表名、字段名、字段名说明，查询表的数据条数、表名、中文表名...
查询所有表名: select t.table_name from user_tables t; 查询所有字段名: select t.column_name from user_col_comments ...
sql查询结果字段名与字段值倒过来了
数据库为sybase, sql如下: 1 select substring(LRRJG,1,7) as SSQJ, 2 sum(case when RWDL_BH = '01' then 1 else ...
oracle查表字段长度,oracle中查询某张表中的字段名，字段类型，字段长度等信息...
oracle中查询某张表中的字段名,字段类型,是否为空,字段长度等信息 --更改某张表的字段类型长度 alter table bill_info modify IDCARD VARCHAR2 (30) ...
表格操作系列——在指字的区域内增加或删除行不影响排版
表格操作系列二.在指定的区域内添加行或删除行在一些表格操作中,已经画好了每页的表格,并且做好了设定,可以实现每一页的页面下好打印在一个整页里,这就需要在编辑时的增加或是删除行时,不破坏原有的排版设 ...
oracle查询所有表的中文名,Oracle 查询库中所有表名、字段名、字段名说明，查询表的数据条数、表名、中文表名、...
查询所有表名: select t.table_name from user_tables t; 查询所有字段名: select t.column_name from user_col_comments ...

表格操作系列——字段名与字段别名的获取