VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2003/11/10(Mon) 16:08 |
| 投稿者 | ： だだだ |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re: ＶＢでSQLDBにつなぐ方法 |
どなたか親切な方教えてください！！
Option Explicit
Dim DB
Dim SGYO_SQL
Dim cn As New ADODB.Connection
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
SGYO_SQL = "Select * from 作業者"
rs.Open SGYO_SQL, DB, 3, 1
Text1.Text = rs.Fields("作業者ID").Value
rs.Close
Set rs = Nothing
End Sub
こんな感じではだめなんですが…
何をどうすればいいでしょう？？？？
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）