ktc7000的专栏

Function Replace_ex (ExPression, Find, Replace_tmp) Dim i, j, s , s1 s = LCase(ExPression) '统一转换为小写，表示不区分大小写 Find = LCase(Find) '同上 i = 1 Do While InStr(i, s, Find, vbBinaryCompar...

自己编写的脚本

右键新建一个txt文本。然后把后缀名改为udl。双击打开，点击上方的‘提供程序’选择你所使用的数据库--（现在使用一般是ORaCLE或者是 sql Server。你使用的那个，选哪个。）选择后下一步。输入数据库名称、帐号，密码。选择允许保存密码。点击测试。提示测试成功。点击确定。然后把udl后缀名改回txt双击打开。你会得到： [oledb] ; Everything after this l...

Dim num,ora ora="ora" set con=createobject("adodb.connection") 'con.open "DRIVER={Microsoft ODBC for Oracle};Server=10.137.86.120;Uid=JXCS0115;Pwd=JXCS0115" con.open "DSN=ora120;UID=JXCS0115;PWD=...

VB字符集