vbÁ¬½Ósql server2005 Êý¾Ý¿â
ÈçºÎͨ¹ýVBÁ¬½Ósql server2005Êý¾Ý¿â
Âé·³°ïÎÒ¿´ÏÂÕâ¶Î´úÂëÓдíÂð?
<%
' SQL ServerÊý¾Ý¿âÁ¬½Ó·½Ê½ ½«user idºÍpasswordÐÞ¸ÄΪÄãµÄSQL ServerµÄÕʺźÍÃÜÂë
strsql="provider=SQLOLEDB;user id=sa; password=antstar;Initial Catalog=ant; data source=localhost"
' AccessÊý¾Ý¿âÁ¬½Ó·½Ê½
'strsql = "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("db.mdb")
set conn = server.createobject("adodb.connection")
conn.open strsql
response.Write("Á¬½ÓÊý¾Ý¿â³É¹¦")
%>
°ï¶¥À²
±¾À´ÊÇÏë°ïæ¿´¿´µÄ£¬²»¹ýÎÒÓõÄÊÇvb.net
Á´½ÓaccessÊDZȽϼòµ¥µÄ
Ò»¿ªÊ¼Ê¹ÓþÍÊÇvb.net£¬¶ÔvbÕâôÁ¬¾Í²»ÖªµÀÁË
Dim strConn As String = "Provider=SQLOLEDB; Integrated Security=SSPI; Database=ÕâÊÇÊý¾Ý¿âÃû; Data Source=ÕâÊÇSqlServerµÃ·þÎñÆ÷Ãû" ¡¯²»Ê¹ÓÃÓû§ÃûµÄÃÜÂëµÄÁ´½Ó·½Ê½
Dim objConnection As OleDbConnection
Dim objCommand As OleDbCommand
Dim objAdapter As OleDbDataAdapter
objConnection = New OleDbConnection(connStr)
objConnection.Open()
objCommand = New OleDbCommand
objCommand.Connection = objConnection
objCommand.CommandType = CommandType.StoredProcedure
&nbs
Ïà¹ØÎÊ´ð£º
ÎÒÓжà¸ö±íA B C ½á¹¹ÊÇÒ»ÑùµÄ£¬¶¼ÓÐ2¸ö×Ö¶ÎnameºÍcontent,ÎÒÒªËÑË÷ËùÒÔ±íËùÓÐ×Ö¶ÎÖаüº¬¡°Öйú¡±µÄÄÚÈÝ Õâ¸öSQLÓï¾äÔõôд
ÈçºÎ½«¶à¸ö±íµÄ²éѯ½á¹ûÁ¬³ÉÒ»¸ö±í Õâ¸öSQLÓï¾äÔõôд ±íµÄ½á¹¹ÊÇÒ»ÑùµÄ
ÀýÈç£ ......
Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔÀ´µÄÊýÖµÁË
´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ
´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË
ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£
»Ø¸´ ......
ÎÒÒ»¸öÏîÄ¿£¬Óиö²åÈë²Ù×÷£¬¾ßÌåÊÇÕâÑùµÄ£º
ÎÒÓнø»õÐÅÏ¢±í¡£ÔÚ³ö»õʱѡÔñÏàÓ¦µÄ½ø»õÐÅÏ¢£¬ÊäÈëÊýÁ¿£¬Ñ¡Ôñ²¿Ãź󣬵㱣´æ°´Å¥£¬ÓÉÓÚÍøÂçÑÓʱ£¬µãÒ»ÏÂûÓз´Ó³£¬ÓÚÊÇÓû§¾ÍÓÖµãһϣ¬µ¼ÖÂÒ»´Î²åÈëÁËÁ½Ìõ¼Ç¼:
Àý£º
......
°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ
Type ID
number As Single
score As Integer
name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
i = 0
&nbs ......