Visual Basic 6.0 Óë SQL Server µÄÁ½ÖÖÁ¬½Ó
VBͨ¹ýADOÁ¬½ÓSQL ServerÊý¾Ý¿â¿ÉÒÔ·ÖΪÓÐÔ´Êý¾Ý¿âÁ¬½ÓºÍÎÞÔ´Êý¾Ý¿âÁ¬½Ó£¬Çø±ðËüÃÇ¿´ÊÇ·ñʹÓÃÁËDSN£¨Êý¾ÝÔ´Ãû³Æ£©À´¾ö¶¨¡£
1 ÎÞÔ´Êý¾Ý¿âÁ¬½Ó
Æäʵ£¬“ÎÞÔ´Êý¾Ý¿â”Á¬½ÓÒ²²¢²»ÊÇ˵²»ÐèÒªÊý¾ÝÔ´£¬Èç¹ûûÓÐÊý¾ÝÔ´ÔòÁ¬½ÓÊÇÖ½ÉÏ̸±ø£¬Ö»ÊDz»ÐèÒªÅäÖÃODBCÊý¾ÝÔ´£¬ÀûÓÃADO¾Í¿Éͨ¹ý´úÂë½øÐÐÁ¬½Ó¡£
1.1 ADO(ActiveX Data Object)
ÔÚVisual Basic6.0ÖУ¬Êý¾Ý·ÃÎʽӿÚÓÐÈýÖÖ£ºActiveXÊý¾Ý¶ÔÏó£¨ADO£©¡¢Ô¶³ÌÊý¾Ý¶ÔÏó£¨RDO£©ºÍÊý¾Ý·ÃÎʶÔÏó£¨DAO£©¡£ÕâÈýÖÖ½Ó¿ÚµÄÿһÖÖ¶¼·Ö±ð´ú±í¸Ã¼¼ÊõµÄ²»Í¬·¢Õ¹½×¶Î£¬×îеÄÊÇADO£¬Ëü±ÈRDOºÍDAO¸ü¼Ó¼òµ¥£¬¸ü¼ÓÁé»î¡£¶ÔÓÚй¤³Ì£¬Ó¦Ê¹ÓÃADO×÷ΪÊý¾Ý·ÃÎʽӿڡ£
ADO ÊÇMicrosoft Êý¾Ý¿âÓ¦ÓóÌÐò¿ª·¢µÄ½Ó¿Ú£¬Êǽ¨Á¢ÔÚOLE DBÖ®Éϵĸ߲ãÊý¾Ý¿â·ÃÎʼ¼Êõ¡£Ëü·â×°ÁËOLE DBËùÌṩµÄ½Ó¿Ú£¬±ÈÆðOLE DBÌṩÕߣ¬ADOµÄ½Ó¿Ú¿ÉÒÔʹ³ÌÐòÔ±ÔÚ¸ü¸ß¼¶±ðÉϽøÐÐÊý¾Ý½»»¥¡£ADO¼¼Êõ²»½ö¿ÉÒÔÓ¦ÓÃÓÚ¹ØÏµÊý¾Ý¿â£¬Ò²¿ÉÒÔÓ¦ÓÃÓڷǹØÏµÊý¾Ý¿â¡£¿ÉÒÔÓÃͳһµÄ·½·¨¶Ô²»Í¬µÄÎļþϵͳ½øÐзÃÎÊ£¬´ó´ó¼ò»¯Á˳ÌÐò±àÖÆ£¬Ôö¼ÓÁ˳ÌÐòµÄ¿ÉÒÆÖ²ÐÔ¡£
1.2 ½¨Á¢ÎÞÔ´Êý¾Ý¿âÁ¬½Ó
ÔÚÁ¬½ÓÊý¾Ý¿âǰ£¬Ê×ÏÈÒªÔÚVisual Basic 6.0²Ëµ¥ÖГ¹¤³Ì”—“ÒýÓÔÖÐÑ¡ÔñMicrosoft ActiveX Data Objects 2.6 Library ºÍMicrosoft ActiveX Data Objects Recordset 2.6 LibraryÕâÁ½¸ö×é¼þ¡£
ÔËÓÃADO¶ÔÏóÄ£Ð͵ÄÖ÷ÒªÔªËØ£ºConnection£¨Á¬½Ó£©ÖеÄConnectionStringÊôÐÔ½øÐÐÁ¬½Ó, ConnectionStringΪ¿É¶ÁдstringÀàÐÍ£¬Ö¸¶¨Ò»¸öÁ¬½Ó×Ö·û´®£¬¸æËßADO ÈçºÎÁ¬½ÓÊý¾Ý¿â¡£
ʵÀý£ºÒÔ½¨Á¢µÇ½ϵͳΪÀý£¬½éÉÜÎÞÔ´Êý¾Ý¿âÁ¬½Ó¡£ÔÚMicrosoft SQL Server 2000 Öн¨Á¢Ò»¸öStudent µÄÊý¾Ý¿â£¬ÔÚStudentÊý¾Ý¿âÖн¨Á¢login_user(name,password)µÄÊý¾Ý±í£¬Microsoft SQL Server·þÎñÆ÷µÄÃûΪdata_server¡£´úÂëÈçÏ£º
Option Explicit
Public LoginSucceeded As Boolean
'ÒýÓÃMicrosoft ActiveX Data Objects 2.6 Library
'¶¨ÒåÁ¬½Ó¶ÔÏóºÍ¼Ç¼¼¯
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
'¶ÔÈ¡Ïû°´Å¥µ¥»÷ʼþµÄÏìÓ¦
Private Sub cmdCancel_Click()
'ÉèÖÃÈ«¾Ö±äÁ¿Îª false
'²»Ìáʾʧ°ÜµÄµÇ¼
LoginSucceeded = False
Me.Hide
End Sub
'¶ÔµÇ¼°´Å¥µ¥»÷ʼþµÄÏìÓ¦
Private Sub cmdOK_Click()
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
'½¨Á¢ÎÞÔ´Êý¾Ý¿âÁ¬½Ó
conn.ConnectionString="driver={sql server};serve
Ïà¹ØÎĵµ£º
--SQL ²é¿´±¾ÖܵÄÐÇÆÚÒ»ºÍÐÇÆÚÌì
/*
ϵͳµÄʱ¼äĬÈϰÑÐÇÆÚÌì×÷Ϊһ¸öÐÇÆÚµÄµÚÒ»Ì죬µ«ÊÇÎÒÃÇÖйúϰ¹ß°ÑÐÇÆÚÒ»×÷Ϊһ¸öÐÇÆÚµÄµÚÒ»Ì죬Òò´ËÈç¹ûµ±ÌìÊÇÐÇÆÚÌìʱÐèÒªÅжÏÒ»ÏÂ
*/
DECLARE @MondayTime varchar(10)
DECLARE @SundayTime varchar(10)
IF(datepart(weekday,getdate())-2 < 0)
BEGIN
SET @MondayTi ......
ÒòΪ²»Ö§³Ö´æ´¢¹ý³Ì£¬ËùÒÔ²éѯÓï¾äÈçÏ£º
string SLQuery =
"INSERT INTO ParkLocation(ParkName,Latitude, Longtitude,Charge,TotalSpace,EmptySpace,ParkCaption,UpdataTime)"+
&nb ......
ÓÉÓÚVBAÖдú±íµ¥¸öºÍ¶à¸ö×Ö·ûÊÇÓá°?¡±ºÍ¡°*¡±´ú±íµÄ£¬ËùÒÔÐí¶à¸ÕѧADOµÄÅóÓѾ³£»áÎÊ£ºÎªÊ²Ã´ÔÚSQLÓï¾äÖÐÕâÁ½¸ö·ûºÅ²»ÄÜÓÃÄØ£¿Ó¦¸ÃÓÃʲô·ûºÅÀ´´ú±íÄØ£¿ ÕâÊÇÒòΪVBA+ADOËùÓõÄÇý¶¯µÄ¹ØÏµ£¬±¾È˶ÔÕâ¸öÒ²²»ÊÇÌ«¾«£¬¾ßÌå´ó¼Ò¿ÉÒÔȥ΢ÈíµÄÍøÕ¾ÉÏÕÒÕҴ𰸣¬ËùÒÔVBA+ADOµÄSQLÓï¾äÖеġ°*¡±ºÍ¡°?¡±ÕâÁ½¸ö·ûºÅÊÇÓá°%¡±ºÍ¡°_¡±£¬ ......
UNION Ö¸ÁîµÄÄ¿µÄÊǽ«Á½¸ö SQL Óï¾äµÄ½á¹ûºÏ²¢ÆðÀ´¡£´ÓÕâ¸ö½Ç¶ÈÀ´¿´£¬ UNION ¸ú JOIN ÓÐЩÐíÀàËÆ£¬ÒòΪÕâÁ½¸öÖ¸Áî¶¼¿ÉÒÔÓɶà¸ö±í¸ñÖÐߢȡ×ÊÁÏ¡£ UNION µÄÒ»¸öÏÞÖÆÊÇÁ½¸ö SQL Óï¾äËù²úÉúµÄÀ¸Î»ÐèÒªÊÇͬÑùµÄ×ÊÁÏÖÖÀà¡£ÁíÍ⣬µ±ÎÒÃÇÓà UNIONÕâ¸öÖ¸Áîʱ£¬ÎÒÃÇÖ»»á¿´µ½²»Í¬µÄ×ÊÁÏÖµ (ÀàËÆ SELECT DISTINCT)¡£ unionÖ»Êǽ«Á½¸ö½á¹ ......
×î½üÔÚ×ömysqlµÄÐÔÄÜÓÇ»¯£¬×öµ½¶à±íÁ¬½Ó²éѯ£¬±È½ÏÍ·ÌÛ£¬¿´ÁËһЩjoinµÄ×ÊÁÏ£¬ÖÕÓڸ㶨£¬ÕâÀï·ÖÏí³öÀ´£¡
ÍâÁª½Ó¡£ÍâÁª½Ó¿ÉÒÔÊÇ×óÏòÍâÁª½Ó¡¢ÓÒÏòÍâÁª½Ó»òÍêÕûÍⲿÁª½Ó¡£
ÔÚ from ×Ó¾äÖÐÖ¸¶¨ÍâÁª½Óʱ£¬¿ÉÒÔÓÉÏÂÁм¸×鹨¼ü×ÖÖеÄÒ»×éÖ¸¶¨£º
&n ......