¡¾ÐÂÊÖ¡¿VBÈçºÎÁ¬½ÓSQL Sever2000.
×¼±¸Ìí¼Ó¶Î´úÂ뵽ģ¿éÀï¡£
µ«ÊDz»ÖªµÀÔõôд¡£
ÕâÊÇÀÏʦ¸øµãÀý×Ó¡£
¸ßÊÖ°ï¿´¿´¡£
VB code:
Public CONN As ADODB.Connection
Public RS As ADODB.Recordset
Function ConnOpen()
Dim ASTR As String
Set CONN = New ADODB.Connection
ASTR = "f:\Library_Data.MDF"
CONN.ConnectionString = "Provider=Microsoft.jet.oledb.4.0;DataSource=" & ASTR & ";Persist Security Info = False"
CONN.Open
Set RS = New ADODB.Recordset
With Rs Do
ActiveConnection = CONN
CurosorType = adOpenDynamic
LockType = adLockOptimistic
End With
End Function
ÊÔһϣ¬¿´ÓÐʲôÎÊÌâ
VB code:
dim conn as new connection
With conn
If .State = adStateOpen Then .Close
.ConnectionString = "driver=SQL Server;server=¼ÆËã»úÃû»òIPµØÖ·;uid=SA;pwd=SAµÄÃÜÂë;database=Êý¾Ý¿âÃû"
.CommandTimeout = 0
.Open
End With
www.conneectionstring.com
²ésql server
VB code:
Private Sub Form_Load()
Call my.ConnOpen
End Sub
×¼±¸ÕâÑù¡£
µ«ÊÇÒ»ÔËÐоͳö´í¡£
ÄãÕâ¸öÁ¬½Ó×Ö·û´®Ã²ËƲ»¿ÉÒÔ
Ó¦¸ÃÀàËÆ
&
Ïà¹ØÎÊ´ð£º
³õѧ£¬´óµ¨ÌáÎÊ£¬Çë¸ßÊÖ²»ÁߴͽÌ
1¡¢¹ö¶¯Ìõµã»÷Óë»æÍ¼°å£¨ÆÁÄ»,Piceure1£©µÄÒÆ¶¯ÎÊÌâÒѾ½â¾ö¡£
Picture1.Top = -VScroll1.Value + bcW '´¹Ö±Òƶ¯
Picture1.Left = -HScroll1.Value + bcW ' ......
sql 2005Êý¾Ý¿âÎÒÏëµÃµ½Ò»×Ö·û´®Îª:
sldkf|||sdeww
erkv|||rltdk
jemcl|||ligf
¾ÍÊÇ|||ºóÃæµÄ×Ö·ûÓÐʲôº¯ÊýÄܵõ½Âð£¿ÊÇÔÚsqlÓï¾äдµÄ£¬²»ÊÇÔÚÒ³ÃæÐ´µÄ£¬ÄÇλ¸ßÊÖÀ´Ö¸½ÌÏ£¬ÐÂÊÖ£¬Ð»Ð»
ÔÎ µ ......
sqlÎÒÏëµÃµ½Ò»×Ö·û´®Îª:
sldkf|||sdeww
erkv|||rltdk
jemcl|||ligf
¾ÍÊÇ|||ºóÃæµÄ×Ö·ûÓÐʲôº¯ÊýÄܵõ½Âð£¿ÊÇÔÚsqlÓï¾äдµÄ£¬²»ÊÇÔÚÒ³ÃæÐ´µÄ£¬ÄÇλ¸ßÊÖÀ´Ö¸½ÌÏ£¬ÐÂÊÖ£¬Ð»Ð»
ÔνñÌì²»ÊÇдÁËô
select parsen ......
¿ÉÒÔÂð
ºÃÆæ¹ÖµÄÌâÄ¿¶î£¡£¡
¿ÉÒÔ¸æËßÎÒÃÇÄãµ½µ×ÏëÎÊʲô £¿
2·Ö¸øÎҵϰ¾Í¿ÉÒÔ¡£
........................¿ÉÒÔÂð
¿ÉÒÔ!
¾À½á£¬
29. vb¿ÉÒÔÕâÑù×ö²»£¿ ( H )¡Ì
A. ......
¿ÉÄÜÒòΪ¹¤×÷µÄÔÒò ½Ó´¥Êý¾Ý¿âÕâ¿é±È½ÏÉÙ£¬Ö®Ç°¶¼ÊÇ×ö³ÌÐòÕâ¿é£¬Êý¾Ý¿âÕâ¿é¶¼ÓÐרÃŵÄÈËÀ´×ö ·Ö¹¤¶¼ºÜÃ÷ϸ ËùÒÔ¶ÔÊý¾Ý¿âÕâÒ»¿éÍêÈ«²»Á˽⡣ǰ¶Îʱ¼ä È¥ÃæÊÔÁ˼¸¼Ò¹«Ë¾ ¼¸ºõ¶¼ÊÇÔÚÊý¾Ý¿âÕâ¿é¹ÒµôµÄ Á¬¸ö¼òµ¥µÄSQ ......