SQL獲取表結(jié)構(gòu)的show_table.vbs (冰點極限NP)

    SQL獲取表結(jié)構(gòu)的show_table.vbs，用vbs實現(xiàn)查看sql數(shù)據(jù)庫的表結(jié)構(gòu)的代碼。需要傳入用戶名密碼與數(shù)據(jù)庫名稱，具體的看程序幫助。
    代碼如下:
    set arg=wscript.arguments
    If arg.count = 0 Then
    show_help()
    wsh.quit
    End If
    Server = arg(0)
    User = arg(1)
    pass = arg(2)
    database_name = arg(3)
    table_name = arg(4)
    set Conn = CreateObject("ADODB.Connection")
    Conn.Open "Driver={SQL Server};Server=" & Server & ";UID=" & User & ";PWD=" & Pass & ";Database=" & database_name
    Set rs = conn.execute("select count(*) as n from " & database_name & ".dbo.sysobjects where id = object_id(N'[dbo].[" & table_name & "]')")
    if rs("n") <=0 Then
    wsh.echo "table have???"
    wsh.quit
    End If
    sql1="use " &database_name & ";select count(column_name) from information_schema.columns where table_name='" & table_name & "'"
    set rs1=conn.execute(sql1)
    num = rs1(0)
    rs1.close
    Set rs1 = Nothing
    i = 1
    sql2="use " &database_name & ";select column_name,data_type,IS_NULLABLE,character_octet_length,collation_name,domain_name from information_schema.columns where table_name='" & table_name & "' order by ordinal_position"
    'wsh.echo sql2
    set rs2=conn.execute (sql2)
    wsh.echo "if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[" & table_name & "]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)"
    wsh.echo "drop table [dbo].[" & table_name & "]"
    wsh.echo "GO"
    wsh.echo "CREATE TABLE [dbo].[" & table_name & "] ("
    do while not rs2.eof
    col_dn = rs2("domain_name")
    col_name = rs2("column_name")
    col_type = rs2("data_type")
    col_len = rs2("character_octet_length")
    col_an = rs2("collation_name")
    col_is = rs2("IS_NULLABLE")
    sql = chr(9)&"[" & col_name & "] "
    If col_dn = "id" Then
    sql = sql & col_dn &" "
    Else
    sql = sql & "[" & col_type & "] "
    If col_len <> "" Then
    sql = sql & "(" & col_len & ") "
    End If
    If col_an <> "" Then
    sql = sql & "COLLATE " & col_an
    End If
    End If
    If col_is = "No" Then
    sql = sql & " NOT NULL "
    Else
    sql = sql & " NULL "
    End If
    If i = num Then
    sql = sql & Chr(13)&Chr(10)&") ON [PRIMARY]"
    Else
    sql = sql & ","
    End If
    i = i +1
    wsh.echo sql
    rs2.movenext
    loop
    wsh.echo "GO"
    rs2.close
    Set rs2 = Nothing
    conn.close
    Set conn=Nothing
    Sub show_help()
    wsh.echo "code by N37P47ch "
    wsh.echo "cscript show_table.vbs ip user pass database table"
    End Sub