ruby Á¬½Ó²Ù×÷ sql2005
The following is improved version of the code created by David Mullet, from
http://rubyonwindows.blogspot.com/2007/03/ruby-ado-and-sqlserver.html
require 'win32ole'
class SqlServer
# This class manages database connection and queries
attr_accessor :connection, :data, :fields
attr_writer :username, :password
def initialize(host, username = 'sa', password='')
@connection = nil
@data = nil
@host = host
@username = username
@password = password
end
def open(database)
# Open ADO connection to the SQL Server database
connection_string = "Provider=SQLOLEDB.1;"
connection_string << "Persist Security Info=False;"
connection_string << "User ID=#{@username};"
connection_string << "password=#{@password};"
connection_string << "Initial Catalog=#{database};"
connection_string << "Data Source=#{@host};"
connection_string << "Network Library=dbmssocn"
@connection = WIN32OLE.new('ADODB.Connection')
@connection.Open(connection_string)
end
def query(sql)
# Create an instance of an ADO Recordset
recordset = WIN32OLE.new('ADODB.Recordset')
# Open the recordset, using an SQL statement and the
# existing ADO connection
recordset.Open(sql, @connection)
# Create and populate an array of field names
@fields = []
recordset.Fields.each do |field|
@fields << field.Name
end
begin
# Move to the first record/row, if any exist
recordset.MoveFirst
# Grab all records
@data = recordset.GetRows
rescue
@data = []
end
recordset.Close
# An ADO Recordset's GetRows method returns an array
# of columns, so we'll use the transpose method to
# convert it to an array of rows
@data = @dat
Ïà¹ØÎĵµ£º
ÎÄÕÂÀ´Ô´£ºhttp://blog.sina.com.cn/s/blog_537ca30d0100bvja.html
ΪʲôҪͬ²½SQL Server 2000 Êý¾Ý¿â£¬Ëü¶¼ÓÃÔÚʲô³¡ºÏ
Êý¾Ýʵʱ±¸·Ýͬ²½£¬Êý¾Ý¿â·þÎñÆ÷³öÎÊÌâʱÎÒÃÇÒ²ÓÐÆäÕý³£¹¤×÷ʱµÄ±¸·Ý
Êý¾Ýʵʱ±¸·Ýͬ²½£¬Ò»Ì¨·þÎñÆ÷¸ºÔز»Æðʱ£¬¿ÉÒÔÓÃÀ´×ö¸ºÔؾùºâ
Êý¾Ýʵʱ±¸·Ýͬ²½£¬Êý¾Ý¿â·þÎñÆ÷¿ÉÒÔÎÞ¼ä¶Ï£¬ÎÞËðÊ§Ç¨ÒÆ
......
½ñÌì´ÓÍøÂçÉÏÕÒµ½ÁËÔÚXPÉϰ²×°SQL 2000 ServerµÄ·½·¨£¬´ËǰÎÒÒ»Ö±ÈÏΪÕâÊÇÐв»Í¨µÄ£¬ºóÃægoogleÒ»²é£¬»¹ÕæÊÇ¿ÉÒÔ£¬ÓкܶàÍøÕ¾¶¼ËµÕâ¸ö·½·¨¿ÉÐУ¬ÎÒ¾ÍÈÃlpÊÔÊÔ¿´£¬½á¹ûÕæÐУ¬×ªÔØÒ»Ï°ɣº ÔÚWindows XPÉϰ²×°SQL Server 2000µÄÖ÷ÒªÁ÷³ÌΪ£º
Ò»¡¢ÔÚSQL·þÎñÆ÷µÄ°²×°ÅÌÖÐÕÒµ½MSDEÕâ¸öĿ¼£¬²¢ÇÒµã»÷setup.exe°²×°Ëü£¬¹ý³Ì ......
Èç¹ûÄãÕýÔÚ¸ºÔðÒ»¸ö»ùÓÚSQL ServerµÄÏîÄ¿£¬»òÕßÄã¸Õ¸Õ½Ó´¥SQL Server£¬Äã¶¼ÓпÉÄÜÒªÃæÁÙһЩÊý¾Ý¿âÐÔÄܵÄÎÊÌ⣬ÕâÆªÎÄÕ»áΪÄãÌṩһЩÓÐÓõÄÖ¸µ¼£¨ÆäÖдó¶àÊýÒ²¿ÉÒÔÓÃÓÚÆäËüµÄDBMS£©¡£
ÔÚÕâÀÎÒ²»´òËã½éÉÜʹÓÃSQL ServerµÄÇÏÃÅ£¬Ò²²»ÄÜÌṩһ¸ö°üÖΰٲ¡µÄ·½°¸£¬ÎÒËù×öµÄÊÇ×ܽáһЩ¾Ñé----¹ØÓÚÈçºÎÐγÉÒ»¸öºÃµÄÉè¼Æ¡£Õ ......