Á¬½ÓaccessÊý¾Ý¿â¼ìÑéÕ˺ÅÎÊÌâ
Public Class loginform1
Dim strCon As String = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source =8021.mdb"
Dim strCom1 As String = " SELECT * from loginname "
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
If ComboBox1.Text = "Íø°ÉÓû§" Then
Form1.Show()
Me.Hide()
Else
Dim myConn As OleDbConnection = New OleDbConnection()
myConn.ConnectionString = strCon
myConn.Open()
Dim strselect As String = "select * from loginname where username='" & Trim(ComboBox1.Text) & "'and pd='" & Trim(textbox1.Text) & "'"
Dim da As New OleDbDataAdapter(strselect, myConn)
Dim ds As New DataSet()
da.Fill(ds)
If ds.Tables(0).Rows.Count = 0 Then
MsgBox("ÄãÊäÈëµÄÕʺŻòÃÜÂëÓÐÎó£¡", , &q
Ïà¹ØÎÊ´ð£º
ACCESSÊý¾Ý¿âÖÐÓÐÒ»¸ötablename±í£¬Éè¼ÆÈçÏÂ
±àºÅ,ÊéÃû,×÷Õß,³ö°æÊ±¼ä,³ö°æÉç,ISBN,Ŀ¼,¼ò½é
ÆäÖгý¡°±àºÅ¡±Îª×Ô¶¯±àºÅÍ⣬ÆäËü¶¼Îª¡°±¸×¢¡±
ÆäÖÐ"±àºÅ"άһ£¬ÔÚ¡°ISBN¡±ÖÐÓеÄΪ¿ÕÖµ£¬ ......
ÔÚMSSQLÖУ¬ÎÒÃÇ¿ÉÒÔÒ»´Î²éѯ¶à¸öÊý¾Ý±í²¢¼ÓÈëµ½Êý¾Ý¼¯ÖУ¬ÖмäÖ»ÐèÓ÷ֺŸô¿ª£®È磺
£¢select * from A;select * from B;select * from C£¢,Ìî³äÊý¾Ý¼¯ºóÔÚDSÖоÍÓÐÁËÈýÕÅ±í£®
µ«ÔÚÓÃͬÑùµÄÓï¾ä·ÃÎÊACCESSÊý¾ ......
CREATE TABLE Product(model integer,
maker varchar(20),
CONSTRAINT SAND PRIMARY KEY (model),
CONSTRAINT PANDA FOREIGN KEY (model) REFERENCES PC (model)
ON DELETE CASCADE ......
×î½üѧϰasp£¬µ±Á·Ï°µ½Á¬½ÓÊý¾Ý¿âµÄʱºò£¬ÆµÆµ³ö´í£¬¿É¾ÍÊDz»ÖªµÀ´íÔÚÔõôµØ·½£¬Çë¸ßÊÖ°ïæ¿´¿´£¡£¡Ð»Ð»£¡
°üº¬Îļþxx.asp¡¢xxsave.asp¡¢conn.aspÒÔ¼°student1.mdbºÍ±íxxgl¡¡
xx.aspΪ£º
<html>
<hea ......
ÓÐÒ»¸öÊý¾Ý¿âÀïÖ»ÓÐ2WÌõÊý¾Ý²»µ½£¬È´ÓÐ500MÄÇô´ó,Ôõô»ØÊ°¡£¿ÊÇACCESSµÄÊý¾Ý¿â¡£ºóÀ´ÎÒ°ÑACCESSµ¼Èëµ½MSSQLÖУ¬Ò²Õ¼ÓÃÁË500M×óÓҵĿռ䣬Èç¹ûѹËõÊý¾Ý¿âÄØ£¿Çë¸ßÊÖÖ¸µã
ѹËõÊý¾Ý¿â£¿ÄÜ×öµ½Ã´...
ÆÚ´ý¸ßÈËÖ¸µã ÎÒ ......