vb+sqlµÄÎÊÌâ - MS-SQL Server / »ù´¡Àà
ÎÒÏëÕÒ¸ö¶®vb+sqlµÄСÀÏʦ£¬¶ÔÎÒÖ¸µ¼Ò»Ï£¬ÏÖÔÚÔÚ×öͼÊé¹ÜÀíϵͳ£¬ÓкöàÎÊÌâÏëÇë½Ì£¬¿ÉÒÔ°ïÒ»ÏÂÂð£¿
ллллл~~~À²£¡
¿É·ñÁô¸öqqѽ£¿
ÕâÊÇÎÒµÄqq£º253214495
....
VB°æ±È½Ï¶à£¬ÓÑÇé°ï¶¥¡£
vbûʲô¾Ñé
ÎÒÒ²¼±¶î···
²»ºÃÒâ˼···
............
ÎÒÃÇÊÇÓÃvb6.0µÄ¡£
¸Ðл¸Ðл~~~
·¹ý °ï¶¥
vbûʲô¾Ñé
ÄãÈ¥VB°æÎÊÎÊ.
up......
You can download the example and see it again and again~~
ºÇºÇ~~~»¹ÓÃÓ¢Óïѽ£¡
ÎÒÏÖÔÚµÄÕâ¸öµ÷ÊÔ²»À´···
È¥vb°æÊǸöºÃ½¨Ò飡
Ïà¹ØÎÊ´ð£º
sqlµÄÈí¼þÔÚÄÄÀï¿ÉÒÔϰ¡£¡ÔÚÍøÉÏÕÒÁËÂù¶à¶¼Óò»Á˰¡
Ëæ±ã¸ãÒ»D°æ°É£¬
ѸÀ×µÚÒ»¸ö¾Í¿ÉÒÔÓÃ
2000,2005¶¼ÕâÑù
http://119.147.41.16/down?cid=0698C2D64D7D637D90A6D2482298E6717D4F15CD&t=2&fmt=-1 ......
ÎÒÏë°Ñ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
......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......
ÐèÇóÈçÏ£º
ѧԺ academy£¨aid,aname£©
°à¼¶ class£¨cid,cname,aid£©
ѧÉú stu(sid,sname,aid,cid)
סËÞÇø region(rid,rname)
ËÞÉáÂ¥ build(bid,rid,bnote) bnoteÊÇ¡®ÄС¯/¡®Å®¡¯
ËÞÉá dorm(did,rid,bid£¬bedn ......
ÕâÀïÏëÁ˽âÏ£¬¹ØÓÚSQL ServerÖзÖÒ³ºÍOracleÖзÖÒ³£»
ƽ³£Ð´Ó¦ÓóÌÐòµÄʱºò£¬±ÈÈçÓõÄÓïÑÔÊÇJava£¬ÓиöÁбíÒ³Ãæ£¬ÐèÒª¶ÔÊý¾Ý·ÖÒ³ÏÔʾ£»
ÕâÀïÒª·ÖÒ³ÄѵÀ²»ÐèÒª½èÖúJava£¬¶øÖ±½ÓsqlÄÜÖªµÀ·ÖÒ³Âð£¬ÆðÂëÒ²Òª´«¸öÒ³Âë½ ......