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

vb Á¬½ÓÊý¾Ý¿â ÎÊÌâ

VB.NET code:

Imports System.Web
Imports System.Web.SessionState


Namespace GDSDMAP




Public Class [Global]
Inherits System.Web.HttpApplication

#Region " ×é¼þÉè¼ÆÆ÷Éú³ÉµÄ´úÂë "

Public Sub New()
MyBase.New()

'¸Ãµ÷ÓÃÊÇ×é¼þÉè¼ÆÆ÷Ëù±ØÐèµÄ¡£
InitializeComponent()

'ÔÚ InitializeComponent() µ÷ÓÃÖ®ºóÌí¼ÓÈκγõʼ»¯

End Sub

'×é¼þÉè¼ÆÆ÷Ëù±ØÐèµÄ
Private components As System.ComponentModel.IContainer

'×¢Òâ: ÒÔϹý³ÌÊÇ×é¼þÉè¼ÆÆ÷Ëù±ØÐèµÄ
'¿ÉÒÔʹÓÃ×é¼þÉè¼ÆÆ÷Ð޸Ĵ˹ý³Ì¡£
'²»ÒªÊ¹ÓôúÂë±à¼­Æ÷ÐÞ¸ÄËü¡£
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
components = New System.ComponentModel.Container
End Sub

#End Region

Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
' ÔÚÓ¦ÓóÌÐòÆô¶¯Ê±¼¤·¢

Application.Add("dbconnstring", "driver={SQL server};server=.;uid=gdhes;pwd=gdhes1234;database=gdhes;")
Application.Add("CheckSys", "driver={SQL server};server=192.1.0.201;uid=CheckSys;pwd=sa;database=123;")

restartGConn()
End Sub

Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
' ÔڻỰÆô¶¯Ê±¼¤·¢

On Error Resume Next


Dim GConn As ADODB.Connection


Ïà¹ØÎÊ´ð£º

ΪʲôCдDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷ÓÃ

ΪʲôCдµÄDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷Óã¿
VBÀïΪʲôÓеÄDLLÖ±½Óͨ¹ýÒýÓÿÉÒÔʹÓã¿ÓеÄÐèҪͨ¹ýdeclareÉêÃ÷Íⲿº¯Êý£¿ÕâЩDLLÓÐʲô²î±ð£¿

1¡¢ÎªÊ²Ã´PBÄÜͨ¹ýDECLAREÉùÃ÷¶øVB²»ÐУ¿
2¡¢Èç¹ûÕâ¸ödllÖÐµÄ ......

vb´ò°ü°²×°Ê±ÌáʾÊäÈëÐòÁкÅ

ÎÒÓÐ×Ô¶¯Éú³ÉÐòÁкŵijÌÐò£¬µ«ÊÇÔõô¸ú´ò°üºóµÄ°²×°³ÌÐò½áºÏÔÚÒ»Æð£¬ÔÚ°²×°Ê±ÌáʾÓû§ÊäÈëÐòÁкţ¬ÕýÈ·ºóÔÙ¼ÌÐø°²×°£¿£¿£¿
·½·¨1£ºÄã¿ÉÒÔÔÚÔËÐгÌÐòºóÊäÈëÐòÁкÅ×¢²á£¬ºÜ¶àÈí¼þ¶¼ÊÇÕâÑùµÄ¡£

·½·¨2£ºÊ¹ÓÃSetu ......

´ÓVBתÐÐVB.NET~~~¿ªÊ¼µÄʱºòÈçºÎѧ»ù´¡ÈëÃŰ¡~

VBżѧµÃ²»´í£¬ÏÖÔÚ´óÒ»£¬¸ßÈýµÄʱºò¾ÍѧVBÁË£¬ÏÖÔÚѧУÀï¶¼ÊÇѧC#ºÍVB.NETµÄÐֵܶࡣ¡£¡£
żҪתÐÐVB.NETÁË~µ±ÄêѧVBѧÁË2Ä꣬¶ÔVBÀïÃæµÄ³£Óú¯Êý¶¼Ê®·ÖÁ˽⡣
Select¡¢If½á¹¹¡¢For NextÑ­»·¡¢µÈ¶¼Á˽⡣¡£¡£ ......

vb Á¬½ÓORACLE ´òÓ¡

ÕâÊÇÎÒÔ­À´Á¬½ÓSQLµÄ´òÓ¡µÄ´úÂë
Connection1.Open "Provider=MSDataShape.1;Persist Security Info=True;Data Source=mm;User ID=sa;Password=sa;Initial Catalog=lc-liuh2;Data Provider=SQLOLEDB.1"Ê ......

ÇóÖúVBÓë´®¿ÚÎÊÌâ

²ÉÓÃVB·¢ËͽÓÊÕasciiÂ룡ÎҵĽÓÊÕÔõôÊÇÂÒÂ룿
VB code:

Private Sub com_init()

With MSComm1

.CommPort = 1 'COM1

.Settings = "9600, E, 7, 1&q ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ