Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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;"

Ò


Ïà¹ØÎÊ´ð£º

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

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

vb - VB / »ù´¡Àà

ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£

²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°

Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......

vb - VB / »ù´¡Àà

ÎÒÏë°ÑwordÁí´æÎªxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......

VB µ÷ÓÃInet¿Ø¼þÏÂÔØ³ö´í - VB / ÍøÂç±à³Ì

¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ԭÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾ­Á¬½Óµ½ÏëÒªµÄµØÖ·Ê±ºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ