VBScript から SQLserver へ接続

今まで、VBScriptやVBAから、AccessのmdbやMySQLへ接続する方法を調べてきましたが、以下はマイクロソフトのSQLserverに接続する方法のサンプルです。




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


conn.Open "Provider=SQLOLEDB;Password=xxyyzz; Persist Security Info=True;User ID=root;Initial Catalog=databasename;Data Source=192.168.xx.yy"

上記の例では、192.168.xx.yy　というマシンのdatabasenameというデータベースに対して、ユーザIDがrootでパスワードがxxyyzz で接続しています。

●ご参考

VBScript からMySQLに接続する
http://chaos-fractal.blogspot.jp/2013/05/vbscript-mysql.html

ExcelのVBAからAccessに接続する
http://chaos-fractal.blogspot.jp/2013/01/excel.html

VBScriptでODBCデータベースに接続する（２）

VBScriptでODBCデータベースに接続して、テーブルにレコードを追加するサンプルです。データベースは、passwd　という名前でODBC登録されており、password という名前のテーブルにレコードを追加しています。








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

    conn.Open "DSN=passwd"
 
    rs.Open "select * from password", conn, 3, 3
 
    rs.Addnew
    rs.Fields(1) = "aaaaaaa"
    rs.Fields(2) = "abcdefg"

    rs.Update
 
 
    rs.Close
    conn.Close

VBScriptでODBCデータベースに接続する

以下は　VBScriptでODBCデータベースに接続するサンプルです。以下のサンプルでは予めpasswd　という名前でODBC登録をしておく必要があります。





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

    conn.Open "DSN=passwd"
   
    rs.Open "select * from password", conn, 3, 3
   
    rs.MoveFirst

    Do While Not rs.EOF
         MsgBox rs.Fields(0) & "-" & rs.Fields(1) & "-" & rs.Fields(2)
    rs.moveNext

    Loop

MySQL テーブルの変更

SQL文を使って、テーブルの変更を行うためには alter table を使用します。以下のサンプルでは、tel というテーブルに zip という列（フィールド）を追加します。


alter table tel add column zip varchar(8);

column という文字列はなくてもよいそうなので以下でも同じ意味です。

alter table tel add zip varchar(8);

参考にさせて頂いたサイト

http://www.techscore.com/tech/sql/SQL3/03_02.html/

SQL文サンプル(CREATE TABLE)

データベースを操作するために用いられるSQL文としては、select,update,delete,insert などがよく知られていますが以下のサンプルは、テーブルを作成するためのSQL文のサンプルです。order_itemというテーブルをCREATE TABLE 文で作成しています。

---

CREATE TABLE order_item (
  id        int         NOT NULL auto_increment,
  orddate   varchar(50) NOT NULL default '' ,
  mail      varchar(50) NOT NULL default '' ,
  sid       int         NOT NULL default '0',
  num       int         NOT NULL default '0',
  PRIMARY KEY  (id)
);

---