Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB
ÈÈÃűêÇ©£º c c# c++ asp asp.net linux php jsp java vb Python Ruby mysql sql access Sqlite sqlserver delphi javascript Oracle ajax wap mssql html css flash flex dreamweaver xml
 ×îÐÂÎÄÕ : vb

Asp.netÁ¬½ÓÊý¾Ý¿â½Ì³Ì£¨vb.net£©

Asp.netÁ¬½ÓSQL Server2000Êý¾Ý¿âÀý³ÌÏê½â: 
<%@ Import Namespace="System.Data" %> 
<%@ Import NameSpace="System.Data.SqlClient" %> 
<script laguage="VB" runat="server"> 
sub page_load(sender as Object,e as EventArgs) 
Dim myConnection As SqlConnection 
Dim myCommand As SqlCommand 
Dim ds as DataSet 
'1.connect to sql server 
myConnection = New SqlConnection( "server=localhost;database=Pubs;uid=ueytjdf;pwd=doekdf" ) 
myConnection.Open() 
la1.text="Connection Opened!" 
'2.Create a table 
myCommand = New SqlCommand( "CREATE TABLE [test] ([id] [int] IDENTITY (1, 1) NOT NULL ,[name] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ,[sex]&n ......

Asp.netÁ¬½ÓÊý¾Ý¿â½Ì³Ì£¨vb.net£©

Asp.netÁ¬½ÓSQL Server2000Êý¾Ý¿âÀý³ÌÏê½â: 
<%@ Import Namespace="System.Data" %> 
<%@ Import NameSpace="System.Data.SqlClient" %> 
<script laguage="VB" runat="server"> 
sub page_load(sender as Object,e as EventArgs) 
Dim myConnection As SqlConnection 
Dim myCommand As SqlCommand 
Dim ds as DataSet 
'1.connect to sql server 
myConnection = New SqlConnection( "server=localhost;database=Pubs;uid=ueytjdf;pwd=doekdf" ) 
myConnection.Open() 
la1.text="Connection Opened!" 
'2.Create a table 
myCommand = New SqlCommand( "CREATE TABLE [test] ([id] [int] IDENTITY (1, 1) NOT NULL ,[name] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ,[sex]&n ......

vb Á¬½ÓÊý¾ÝÀý×Ó

   '¹¤³Ì-->ÒýÓà Ìí¼Ó Microsoft activex data objects 2.5 library
    '¹¤³Ì-->²¿¼þ Ìí¼Ó Microsoft flexgrid control 6.0
    Dim Cnn As New ADODB.Connection
    Cnn.ConnectionString = "Provider=microsoft.jet.oledb.4.0;data source=E:\Access DB\Database1.mdb;"
    If Cnn.State <> ADODB.ObjectStateEnum.adStateClosed Then Cnn.Close
    Cnn.Open
    Dim Rs As ADODB.Recordset
    Set Rs = New ADODB.Recordset
    With Rs
        Set .ActiveConnection = Cnn
        .CursorLocation = adUseClient
        .CursorType = adOpenKeyset
        .LockType = adLockOptimistic
        .Open "SELECT good_code,customer,sum(price*amount)/sum(amount) AS avg_price from sales GROUP BY good_c ......

VBʵÏÖÊý×Öµ½ÖÐÎĽð¶îµÄת»»º¯Êý

Private Function NMoneyToSMoney ( NMoney As Variant )   As String
      If IsNumeric ( NMoney )     =   False Then
            NMoneyToSMoney   =   "²»ÊÇÊý×ÖÀàÐÍ"
            Exit Function
      End If
      Dim BasicDWString As String, BasicDW (   )   As String
      Dim MoneyDWString As String, MoneyDW (   )   As String
      Dim MoneyStr As String, ReturnStr As String, TempStr As String
      BasicDWString   =   "·Ö,½Ç,Ô²,Ê°,°Û,Ǫ,Íò,Ê°,°Û,Ǫ,ÒÚ,Ê°,°Û,Ǫ,ÍòÒÚ,Õ×,Ê°,°Û,Ǫ,Íò,ÒÚ"
      MoneyDWString   =   "Áã,Ò¼,·¡,Èþ,ËÁ,Îé,½,Æâ,°Æ,¾Á"
   &nb ......

VB 5·1µÚÒ»Ìì

ÉÏÎç:
VB×ܽ᣺
ÏÂͼÊÇÓÃmindmanagerÖÆ×÷µÄVB×ܽámdb£º
³£ÓÿؼþµÄ·ÖÀࣺ
 
ÊôÐԺ͹ý³Ì£º
·½·¨ºÍ¹ý³Ì
ʼþ¹ý³Ì¡¢Function¹ý³ÌºÍ¹ý³Ì£º
VB×ܽá´óͼ£º
 
·ÖÆçÈçÏ£º
Êý¾Ý°üÀ¨£ºÊý¾ÝÀàÐÍ¡¢±äÁ¿¡¢³£Á¿¡¢ÔËËã·û¡¢±í´ïʽµÈ¼¸²¿·Ö£¬¶øÁ÷³Ì¿ØÖÆÓï¾äÓ¦²»Ó¦¸Ã¼ÓÈëÆäÖС£
ÎҸоõ²»Ó¦¸Ã£¬ÓÓ±ù¿éÄ£×Ó”Õâ¸öÀý×ӱȽϺÏÊÊ£ºÊǵĽṹºÍ˳ÐòλÖþö¶¨ÁËÄÄЩˮÏȱ»¶³³É±ù¡£Á÷³Ì¿ØÖÆÓï¾äÏ൱ÓÚÄ£×Ó¸ñ£¬¶øÊý¾ÝÀàÐÍ¡¢±äÁ¿¡¢³£Á¿¡¢ÔËËã·û¡¢±í´ïʽµÈËãÊÇÄ£×ÓÀïµÄË®£¬ÊÇÁ÷³Ì¿ØÖÆÓï¾ä¾ö¶¨ÁËÕâЩÊý¾ÝµÄ˳ÐòÖ´ÐУ¬ËùÒÔÓ¦ÓùØÁª£¬¶ø²»ÊÇ´ÓÊô¡£
ÏÂÎ磺
²ð»úÆ÷£º
·¸´íÎóÈçÏ£º²ð»úÆ÷֮ǰºÍ×°»úÆ÷Ö®ºó¶¼Ã»ÓÐÊÔ×Å“µãÁÁ”Ëü£¬×Ô¼ºµ±Ê±¸Ð¾õÓÉ×鳤Ëû»á°²Åźõģ¬×îºó×°ºÃʱÎÒÓÐÏë¹ýÊÔÊÔÄܲ»ÄÜ´ò¿ª×ÀÃ棬µ«¿´ÖÜΧͬѧ¶¼Ã»·´Ó³£¬×°ºÃµÄ¶¼×ß¹âÁË£¬×Ô¼ºÒ²Ï´ÊÖ×ßÈË¡£
ÕâÑù¾Í²»È·¶¨×Ô¼ºÊÇ·ñÇ×ÊÖ½«»úÆ÷×é×°³É¹¦£¬ÒÔºóÈç¹û±ðÈËÕÒ×Ô¼º°ï棬ÕâÊÇË沨ÖðÁ÷¶Ôѧϰ̬¶È²»¶ËÕýµÄ±íÏÖ¡£
ºÃ¶àʱºò±ðÈËÎÊ×Ô¼º*****Ôõô×ö£¬×Ô¼ºËµÓ¦¸ÃÊÇ****µØ×ö°É£¬µ«±ðÈËÎÊ×Ô¼ºÈ·¶¨Âð£¬×Ô¼ºÈ´Ëµ²»ÄÜûÊÔ¹ý£¬ÕâÊǺÜÑÏÖصġ£Ñ§Ï°²»¿ÉàñàðÍÌÔ棬±ØÐëÔúʵ¡£
ÒÔºó²»¹Üѧϰʲô£¬¼ÈȻʱ¼ä¸¶³ö¸øËüÁË£¬ ......

VB 5·1µÚ¶þÌì

ÉÏÎçÏÈ°ÑÖ÷°åÊõÓï°¤¸ö²éÁËÒ»±é£¬Á˽âËüµÄËõдÓÉÀ´¡¢Î»Öú͹¦ÄÜ¡£
Ö÷°åÓ¢ÎÄËõдÏê½â£º
 http://user.qzone.qq.com/904515106/infocenter?ptlang=2052&ADUIN=904515106&ADSESSION=1272977059&ADTAG=CLIENT.QQ.2653_Mysrv.0
ÏÂÎç·µ¹¤£¬Õâ´Î¸øµÄ½ÌѵÊDzÒÍ´µÄ£¬ÎÒÃÇ×éÊÔÁË°ëÌ춼²»ÄܵãÁÁ£¬»»Ó²ÅÌ··»»µçÔ´··ÕÒÈË°ïæ··»»ÏÔ¿¨··»»ÄÚ´æÌõ··×îºó·¢ÏÖÊÔµÄÖ÷»ú²»ÊÇ×òÌìÄÇ̨£¬²»½öÀË·ÑÎÒÃÇ×éµÄʱ¼ä£¬»¹ÓÐСÓ¡¢ÇïÇïÁ½¸ö×鳤µÄ±¦¹óʱ¼ä¡£Ö®ºó×Ô¼º¶¯ÊÖ²ð×°»úÆ÷£¬×îºóÊÔ»ú£¬µãÁÁ×ÀÃ棬³É¹¦¡£ÐÅÐĽ¨Á¢µÄÂúÂúµÄÁË£¬ºÇºÇ
·´Ê¡£ºÒÔºó²»¹ÜÔÚÉú»îÖеĸ÷¸ö·½Ãæ×Ô¼º¶¼ÒªÏñ×öÔôÒ»Ñù£¬ÄÇÕâ´Î×°»úÆ÷À´Ëµ£¬Õâ´ÎµÄÈÎÎñÊDzð×°»úºó»úÆ÷ºÍÒÔÇ°Ò»ÑùÔËÐÐÕý³££º
×Ô¼º´ò¿ªÖ÷»úºó¸Çºó²»Ó¦¼±ÓÚ½«¸÷¸ö²¿¼þ²ðжÏÂÀ´£¬Ó¦¸ÃÏëÏëÎÒÒ»»á¶ùÔõôÈÃËüÃǻָ´Ô­Ã²¶ø²»±»ÈË·¢ÏÖ£¬·½·¨Ö»ÓÐÒ»¸ö£º×Ô¼º²ðµÄʱºò¿´×¼¼ÇÀΣ¬Ôõô²ðµÄÔõôװÉÏ¡£ÓÚÊÇÿ°ÎÒ»¸öÁã¼þ¾ÍÒª¹Û²ìºÃËüµÄ·½ÏòÒÔ¼°ºÍ±ðµÄ²¿¼þµÄ¹Øϵ¡£²¢°Ñ°ÎÏÂÀ´µÄ²¿¼þ¹éºÃÀ࣬ÓÈÆäÊDz»Í¬ÖÖÀàµÄÂÝË¿¶¤¡£¸´Ô­Ê±£¬¿ÉÒÔÇáËɸ㶨¡£
ÒÔºó×öÈκÎÊÂÇ鶼ÏÈ°Ñ˳ÐòÀíºÃ£¬²»¿É¼±ÓÚ¿ª¹¤¡£Ä¥µ¶²»Î ......

VB 5·1µÚÈýÌì

1¡¢´óµÀÖÁ¼ò
 
Ã×ÀÏʦÏȳÊÏÖÁËÒ»¸öº¯ÊýµÄͼÏñ£¬È»ºóÎÊÎÊ´ó¼ÒÏëµ½ÁËʲô¡£
¿´µ½ÕâÕÅͼ£¬ÎÒÏÈ·¢ÏÖÕâÊÇÒ»¸öÖÜÆÚº¯Êý£¬ÔÙÍùÉîÁ˾͸оõ×Ô¼ºÓ¦¸Ã²»»áÁË£¬¼ÄÏ£ÍûÓÚÊéÐŵļ¸¸öͬѧ£¬¸Ð¾õÓ¦¸ÃÊǸßÊýÀïµÄ¶«Î÷¡£µ«ÊÂʵ֤Ã÷ÊdzõÖеÄ֪ʶ£º
ËûÊÇÒÔÏÂÈý¸öº¯ÊýµÄ¸´ºÏº¯Êý£º
y=sin(x)+sin(2x)+sin(3x)
 
 
 
 
ÕâÊÇàñàðÍÂÔæµÄ̬¶ÈµÄÁíÒ»¼«£¬¿´ÎÊÌâʱ±»±íÃæµÄ¸´ÔÓËùÃÔ»ó£¬×Ô¼ºÃ»ÐÅÐĶø²»È¥³¢ÊÔ£¬ÒÔºó²»¹ÜÓöµ½Ê²Ã´À§ÄÑ£¬¶¼Ó¦¸Ã¾²ÏÂÐÄÀ´ºÃºÃµÄ·ÖÎöһϣ¬³ä·Öµ÷¶¯×Ô¼ºÒÑÓеÄ֪ʶ£¬ÊÔÊÔÄܲ»ÄÜÓëÖ®·¢ÉúÅöײ£¬ÇóѧÊýÊ®ÔØ£¬ÏàÐÅÈκÎÒ»Ñù֪ʶ¶¼²»ÊÇȫеġ£³ä·Ö·¢»Ó×Ô¼ºµÄDZÄÜ¡£ÏàÐÅѧϰ¿ÉÒÔÊÇÓɸ´ÔÓµ½¼òµ¥ÔÙµ½¸´ÔÓµÄÁ¼ÐÔ·¢Õ¹µÄ¹ý³Ì
2¡¢BIOSÉèÖãº
×ܽáÇ°ÌìµÄ½Ìѵ£¬BIOSÉèÖÃÒ»¸öÔæÒ»¸öÔæµØÀ´£º
1¡¢Ð¡ÓÂʾ·¶µÄÉèÖÃÃú¼ÇÓÚÐÄ
2¡¢²»¶®µÄµØ·½°ÑÃû´ÊËõд¼ÇÏÂ
3¡¢»Ø»ú·¿°Ñ¼ÇϵIJéÒ»±é
4¡¢ÖÐÎç»Ø¶ÔÃÅ»ú·¿Êµ¼Ê²Ù×÷Ò»´Î¡£
ÒÔÇ°Ò»¿´µ½BIOSÉèÖýçÃ棬¾ÍÓÐÖÖ¿Ö¾åÒ»ÊÇÄ°Éú¶þÊÇŸø»úÆ÷Õû»µÁË£¬Õâ´Î²»»áÁË¡£×Ô¼ºÇ×ÊÖ½øÐÐÁËһϻù´¡BIOSÉèÖú͸߼¶BIOSÉèÖã¬Ò²²»¹ýÈç´Ë£¬Æäʵ¾ÍºÍ¸ÕÂòµÄ¼ÒÓõçÆ÷Ò»Ñù¡£¸ÕÂò»ØÀ´µÄµçÊÓ»ú£¬µÃ×Ô¼ºÊÖ¶¯ËÑ̨£¬È»ºóÉèÖÃÿ¸öƵµÀÊǼ¸Ì¨£¬È»ºóÊÇÁÁ¶È ......
×ܼǼÊý:380; ×ÜÒ³Êý:64; ÿҳ6 Ìõ; Ê×Ò³ ÉÏÒ»Ò³ [5] [6] [7] [8] 9 [10] [11] [12] [13] [14]  ÏÂÒ»Ò³ βҳ
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ