投稿日 | : 2003/11/10(Mon) 17:15 |
投稿者 | : だだだ |
Eメール | : |
URL | : |
タイトル | : Re^3: VBでSQLDBにつなぐ方法 |
お返事遅れて申し訳ありません。
お忙しい中のご返答ありがとうございます。
ご指摘の一行は意味がなかったので、改修いたしました。
Option Explicit
Dim DB
Dim SGYO_SQL
Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset
Public Sub Form_Load()
Set DB = CreateObject("ADODB.Connection")
DB.ConnectionString = "driver={SQL Server};" & _
"server=TICTOKIO-SERVER;uid=ticadmin;pwd=tic;database=dev"
DB.ConnectionTimeout = 60
Set rs = CreateObject("ADODB.Recordset")
SGYO_SQL = "Select * from 作業者"
rs.Open SGYO_SQL, DB, 3, 1
Text1.Text = rs.Fields("作業者ID").Value
rs.Close
Set rs = Nothing
End Sub
このソースを実行してみると、下記のエラーが帰ってきます。
実行時エラー '3709'
この操作を実行するために接続を使用できません。このコンデキストで閉じ
ているかあるいは無効です。
どういう状態のエラーかもわかりません(@@)