Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

VB´úÂëÁ´½ÓSQL2005ÎÊÌ⣬Çó½â

Public Class Form1

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

  MsgBox(1)

  Dim Cnn As New ADODB.Connection '¶¨ÒåÊý¾ÝÁ´½Ó¶ÔÏó £¬±£´æÁ¬½ÓÊý¾Ý¿âÐÅÏ¢£»ÇëÏÈÌí¼ÓADOÒýÓÃ

  MsgBox(2)
  Dim Rs As New ADODB.Recordset '¶¨Òå¼Ç¼¼¯¶ÔÏ󣬱£´æÊý¾Ý±í

  MsgBox(3)
  Dim strCnn = "Provider=SQLOLEDB.1;Initial Catalog=qzsyck ;Data Source=·þÎñ´óÖÚ;User ID=;Password=;Integrated Security=True;Persist Security Info=False;"

  MsgBox(4)
  Cnn.Open(strCnn)

  MsgBox("Á´½Ó³É¹¦")

  Rs.Open("select * from userpw", Cnn) '¶¨ÒåSQL²éѯÃüÁî×Ö·û´®

  MsgBox(6)

  End Sub
End Class


ÒÔÉÏÄËÎҵĴúÂ룬VBÁ´½ÓSQL2005£¬µ«ÊÇÔËÐе½Cnn.Open(strCnn)ÕâÐÐʱ¾Í±¨´í
  -------¶à²½ OLE DB ²Ù×÷²úÉú´íÎó¡£Èç¹û¿ÉÄÜ£¬Çë¼ì²éÿ¸ö OLE DB ״ֵ̬¡£Ã»Óй¤×÷±»Íê³É¡£

¸ÃÈçºÎµ÷ÊÔ£¿ÊÇ´úÂëµÄÎÊÌ⻹ÊÇÊý¾Ý¿âµÄÎÊÌ⣿ÎÒÊÇÔ¶³ÌÁ´½ÓÊý¾Ý¿âµÄ£¬»¹ÓУ¬ÎÒÒѾ­Ìí¼ÓÒýÓÃÁË
Microsoft ADO Data Control
Microsoft DataGrid Control

Dim strCnn = "Provider=SQLOLEDB.1;Initial Catalog=qzsyck ;Data Source=·þÎñ´óÖÚ;User ID=SA;Password=SAµÄÃÜÂë;Integrated Security=True;Persist Security Info=False;"

Ò


Ïà¹ØÎÊ´ð£º

Asp+sql serverÎÊÌâ - Web ¿ª·¢ / ASP

ÎÒÒ»¸öÏîÄ¿£¬Óиö²åÈë²Ù×÷£¬¾ßÌåÊÇÕâÑùµÄ£º
ÎÒÓнø»õÐÅÏ¢±í¡£ÔÚ³ö»õʱѡÔñÏàÓ¦µÄ½ø»õÐÅÏ¢£¬ÊäÈëÊýÁ¿£¬Ñ¡Ôñ²¿Ãź󣬵㱣´æ°´Å¥£¬ÓÉÓÚÍøÂçÑÓʱ£¬µãÒ»ÏÂûÓз´Ó³£¬ÓÚÊÇÓû§¾ÍÓÖµãһϣ¬µ¼ÖÂÒ»´Î²åÈëÁËÁ½Ìõ¼Ç¼:
Àý£º ......

ÇóÒ»sqlÓï¾ä - MS-SQL Server / ÒÉÄÑÎÊÌâ

ÏÖÔÚÓÐÁ½ÕÅ±í£ºÎÄÕÂÖ÷±íA(articleId,articleTitle)£¬ÎÄÕÂÆÀÂÛ±íB(commentId,articleId,commentTitle)
ÏÖÔÚÎÒÏëʵÏÖÕâÑùµÄ¹¦ÄÜ£ºÁгöÎÄÕÂÁÐ±í£¬ÆäÖÐÿƪÎÄÕ±êÌâÏÂÃæÁгö´ËÎÄÕµÄǰ2¸öÎÄÕÂÆÀÂÛ£¬ÇëÎÊsqlÓï¾äÔõôд°¡ ......

vbµÄÀàÖÐʹÓÃ×Ô¶¨ÒåÀàÐÍÊý¾ÝµÄÎÊÌâ - VB / »ù´¡Àà


ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......

vb¶ÁÈ¡ÓÃwordת»»³ÉµÄxmlÀïµÄÊý¾Ý - VB / »ù´¡Àà

Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
  Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......

vbÉú³ÉEXE - VB / »ù´¡Àà

form1ÖÐÓÐtext1-8£¬ ºÍcommand1 
text8ÖÐΪ³ÌÐò´úÂ루Éú³É´°ÌåΪform2£¨ÒÑ×öºÃ£©£©
µ¥»÷command1ºó½«text2ÖеĴúÂëÉú³ÉEXEµ½d:\ ²¢ÇÒtext1-7·Ö±ð¶ÔÓ¦
²úÆ·Ãû ¹«Ë¾Ãû ºÏ·¨°æÈ¨ ºÏ·¨É̱ê ÎļþÃèÊö ×¢ÊÍ ±êÌâ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ