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
Ïà¹ØÎÊ´ð£º
login.aspx.vb:
Public ReadOnly Property nameT() As String
Get
Return TextBox1.Text
&nb ......
vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?
°´Ctrl+F5Ô¤±àÒ룬³ö´íʱ»áÌø×ªµ½´íÎóÐÐ
²»ÊÇÄÇÑùµÄÁË,ÎÒÊÇÒªÇó±àÒë³ÉEXEºóÔËÐÐ,Ìáʾ³ö´íÄÜ·ñÌáʾ´íÔÚÄÄÒ»ÐÐ.
ÎÒ±àÒëºóÔÚÎҵĵçÄÔÉÏÔËÐÐûÎÊÌâ,µ«Ô ......
ÔõôÔÚVBÖаÑexcelÖеÄÊýµ¼Èëµ½Êý¾Ý¿âÖÐ
Ö±½ÓÔÚvbÖе÷ÓÃÊý¾Ý¿âµÄµ¼È빦ÄܽøÐе¼Èë¡£
×Ô¼º°Ù¶ÈÒ»ÏÂ,´úÂ뺣ÁËÈ¥ÁË,·½·¨Óкöà
²Î¿¼
http://blog.sina.com.cn/s/blog_4a384544010004zk.html
'ÅÐ¶Ï ......
"insert into user1(name,age) values('" & Text1.Text & "','" & Text2.Text & "' )"
ÎÊÌ⣺¶ÔsqlÓï¾äÖе¥¡¢Ë«ÒýºÅÄ£ºý¡£¼ÈÈ» Text1.Text¾Í±íʾ ......