'----------------------------------------------------------------------
'	odbc_sql2000.vbs
'
'					Dec/25/2012
'----------------------------------------------------------------------
Private cn ,rs

Wscript.echo "*** 開始 ***"

Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")

cn.Open "CITY","scott","tiger"

sql = "select name from T0001 where id=1"
rs.Open sql, cn

mado = rs.Fields(0)
rs.Close

Wscript.echo (mado)


Wscript.echo "*** ppp ***"


cn.Close

Set cn = Nothing
Set rs = Nothing

Wscript.echo "*** 終了 ***"
'----------------------------------------------------------------------