摘要:
像SQL中一样,可以测试是否和数据库连接成功!Private Function TestConnectSqlDatabase(VstrUser As String, VstrPwd As String, VstrServer As String, VstrDataBase As String) As Boolean On Error GoTo ErrHandle Dim cnn As AD... 阅读全文
摘要:
'Function to read application setting from INI filePublic Function IniFileRead(ByVal vstrINIPath As String, vstrINIFileName As String, _ ByVal vstrINIType As String, ByRef vstrVar As String, ByVal ... 阅读全文
摘要:
昨天有帮朋友写一个txt->sql的数据转化程序,这个当然很简单了.但是在朋友发过来的SourceCode中,却发现了一种很好用的方法.它是使用DAO数据源.例子:Txt导入Access现在把代码共享出来,让大家参考.'使用DAOPrivate Sub Command1_Click()'On Error Resume NextDim db As Database, tbl As TableDefS... 阅读全文