VB.net²Ù×÷AccessÎÊÌâ
ÓõÄÊÇ2008дÁËÒ»¶ÎÅжÏÊý¾Ý¿âDbNameÖÐÊÇ·ñÓбíTabNameµÄ³ÌÐò£¬µ«ÊÇÔÚµ÷ÓõÄʱºò³öÏÖÁËÊý¾Ý¿âÃû³Æ²»ÄÜת»»ÎªDoubleÐÍÊý¾ÝµÄÎÊÌ⣬µ«ÊÇÔÚÕâµ±ÖÐÎÒ¸ù±¾Ã»ÓÐÉèÖÃDoubleÐÍÊý¾Ý£¬¸Õ¿ªÊ¼½Ó´¥VB.net£¬²»ÊǺܶ®£¬´ó¼Ò°ïæ°¡£¡£¡ÆäËû²Ù×÷Êý¾Ý¿âµÄʱºòÒ²³öÏÖ¹ýÕâÖÖÎÊÌâ¡£
Public Function FindTabName(ByVal TabName As String, ByVal DbName As String) As Boolean
Dim myDs As New DataSet
Dim myDa As New OleDbDataAdapter
Dim myCon As New OleDbConnection
Dim myConString As String
Dim myCom As New OleDbCommand
Dim I As Integer
Dim mytable As String
FindTabName = False
Try
myConString = "Provider=MicroSoft.Jet.OLEDB.4.0;Data Source =" + DbName
myCon.ConnectionString = myConString
myCon.Open()
myCom.Connection = myCon
myCom.CommandText = "select * from " & +DbName
myDa.SelectCommand = myCom
myDa
Ïà¹ØÎÊ´ð£º
Çë½ÌһϣºÎÒÓÃvbдÁËÒ»¸öµ÷ÓÃIllustratorµÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......
vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?
°´Ctrl+F5Ô¤±àÒ룬³ö´íʱ»áÌø×ªµ½´íÎóÐÐ
²»ÊÇÄÇÑùµÄÁË,ÎÒÊÇÒªÇó±àÒë³ÉEXEºóÔËÐÐ,Ìáʾ³ö´íÄÜ·ñÌáʾ´íÔÚÄÄÒ»ÐÐ.
ÎÒ±àÒëºóÔÚÎҵĵçÄÔÉÏÔËÐÐûÎÊÌâ,µ«Ô ......
Ï£Íû´ó¼ÒÄܹ»°ïÎÒÏÂ.¸ÐлÁË..
Ô´Âë´«ÔÚ´óÃ×ÅÌ VB6 µÄÔ´Âë http://www.damipan.com/file/3wNoKLW.html
תΪVB.NETÔ´Âë.
СµÜÍêÈ«ÊÇÐÂÊÖ ²»¶®µÄ˵.Âé·³¸÷λ°ïæһÏÂ
ÎÒµÄEMAILÊÇ:4452 ......
vb½«winsock¿Ø¼þ·â×°µ½dllÎÊÌâ ÓÐʲôºÃµÄ˼·£¿ Èç¹ûÓÃSocket APIÄØ£¿
ÀýÈ磬ÏñÏÂÃæÕâÑù·â×°Winsock¿Ø¼þ£¬ÐеÄͨ£¿
´´½¨ActiveX dll£¬Ìí¼Ó´°ÌåfrmClient£¬¼ÓÈëWinSock¿Ø¼þwskClient¡£
Àà´úÂ룺
Option Expli ......
ÓÐûÓк¼ÖݵÄÅóÓÑ£¬ÊìϤVBµÄ£¬ÓÐÐËȤ×öµÄ»°ÁôÏÂÁªÏµ·½Ê½
VB6 OR VB.NET?
¿Éϧ²»ÔÚº¼ÖÝ,遠³Ì¿É·ñ?
ÐǪ̈ÁªÏµ·½Ê½ÄØ
ÎÒÒ²ÁªÏµÒ»Ï£¬²»¹ýÔÚÄþ²¨
¿ÉϧÎÒÒ²²»ÔÚº¼ÖÝ
±±¾©µÄÐв»£¿
ÎÒÔÚËÕÖÝ£¬ ......