VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[管理用]
| 投稿日 | ： 2004/11/09(Tue) 17:28 |
| 投稿者 | ： ねこ |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： DLL呼び出し |
いつも参考にさせて頂いています。
質問なのですが、
プロジェクト外のDLL関数を用いて、データベースに接続したいのですが
エラーが出てしまい、困っています。
***********ソース*************
Public Function ConnectPostalCode()
Dim DAO As Provider
On Error Resume Next
ConnectPostalCode = True
'郵便番号.mdbファイルの設定
Call clsPostal.SetDatabase(DAO, YUBINMDB, "h", "h")
If err.Number <> 0 Then GoTo err:
Exit Function
***********DLL SetDatabase関数概要*************
Object.SetDatabase(pvrProvider, strDataSource, strUID, strPWD)
引数
pvrProvider DAO、SQLServerのどちらかを指定します。
StrDataSource DAOならファイル名、SQL Serverならサーバー名を指定します。
StrUID ユーザー名
StrPWD パスワード
戻り値 なし
**************************************
関数の内容とソースに関しては、このようになっています。
デバックするとSetDatabaseをcallしている所で、
ConnectionOpen接続が正しくありません。というPGMで用意されたエラーがでます。
原因としては、DAOの引数の渡し方が悪いのかと思います。
どのようにすればいいのでしょうか。
ご教授下さい。よろしくお願いします。
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）