不會的就放這邊

      '把這段貼到你想要用的元件上面
        Dim conn As New System.Data.OleDb.OleDbConnection()
        conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data source= C:\Users\user\Desktop\123\Database11.mdb"
        Try
        conn.Open()   '打開了
                                '看要做什麼
              ' Insert code to process data.
            Catch ex As Exception
        MessageBox.Show("Failed to connect to data source")
        Finally
        conn.Close()
        End Try

//於七段顯示器顯示二位數計數


#include "reg51.h"
sbit x1=P3^0;
sbit x2=P1^0;

int a=2000,k=0; //0.5秒=2000*250us
int b,c;
unsigned char font[61] = {0x00,0x01,0x02,0x03,0x04,0x05,0x06,0x07,0x08,0x09,0x10,
0x11,0x12,0x13,0x14,0x15,0x16,0x17,0x18,0x19,0x20,
0x21,0x22,0x23,0x24,0x25,0x26,0x27,0x28,0x29,0x30,
0x31,0x32,0x33,0x34,0x35,0x36,0x37,0x38,0x39,0x40,
0x41,0x42,0x43,0x44,0x45,0x46,0x47,0x48,0x49,0x50,
0x51,0x52,0x53,0x54,0x55,0x56,0x57,0x58,0x59,0x60};
char seg[6]={0x01,0x4f,0x12,0x06,0x4c,0x24};

int d, bcd[2];
unsigned char i;

main()
{

TMOD = 0x03;
TH0 = (256-250);
TL0 = (256-250);
TR0 = 1; //啟動計時器
IE = 0x82; //啟動Timer0中斷

bcd[0]=P1/10;
bcd[1]=P1%10;
d=bcd[0]*10+bcd[1];
x1=1;
while(1);

}




void scan_7seg() interrupt 1 //Timer0中斷程式(中斷向量1)
{ if (--a==0)
{
a=2000;

if (x1==0) //控制用
{

P0=seg[k++];
}



P2 = font[d--];

if (d==0)
while(1);
}

}

//==========================//

#include "reg51.h"
int a=2000; //0.5秒=2000*250us
unsigned char font[11] = {0x01,0x4F,0x12,0x06,0x4C,0x24,0x60,0x0F,0x00,0x0C}; //0~9之7段顯示器顯示字型內容

unsigned char i,scan;
unsigned char led_buffer[2];

void delay(char count);

void main(void)
{

TMOD = 0x03;
TH0 = (256-250);
TL0 = (256-250);
TR0 = 1; //啟動計時器
IE = 0x82; //啟動Timer0中斷
// scan = 0;
while(1);

}




void scan_7seg() interrupt 1 //Timer0中斷程式(中斷向量1)
{ if (--a==0)
{
a=2000;
P0 = font[scan++];
if(scan==10) //判斷是否到第2位數,如果是則歸0
{
scan=0;
}
}

}

Me.Database1DataSet.資料表名稱.Add資料表名稱Row(TextBox1.Text, TextBox2.Text, TextBox3.Text)'資料表存入

Me.資料表名稱TableAdapter.Update(Me.Database1DataSet.資料表名稱)  '資料表更新

Dim url As String = "你要的網址"
Dim req As System.Net.HttpWebRequest = DirectCast(System.Net.WebRequest.Create(url), System.Net.HttpWebRequest)
Dim rsp As System.Net.HttpWebResponse = DirectCast(req.GetResponse(), System.Net.HttpWebResponse)
        Try
                If rsp.StatusCode = System.Net.HttpStatusCode.OK Then
                        PictureBox1.Image = New Bitmap(rsp.GetResponseStream())
                End If
                        Finally
                rsp.Close()
        End Try

<?php
        // 建立 MySQL 資料庫的連線
        $link = mysql_connect('localhost', 'root', '123');
        // 設定在用戶端使用UTF-8的字元集
        mysql_set_charset('utf8', $link);
        // 選擇 MySQL 資料庫ch13
        $db_selected = mysql_select_db('ch21', $link);


        $query_RecLogin = "SELECT * FROM `class` WHERE `name`='".$_GET["MyName"]."'";
        $RecLogin = mysql_query($query_RecLogin) or die($sql_query);
        //取出帳號密碼的值
        $row_RecLogin=mysql_fetch_assoc($RecLogin);
        $username = $row_RecLogin["name"];
        $passwd = $row_RecLogin["address"];

        //比對密碼，若登入成功則呈現登入狀態
        if($_GET["MyNum"]==$passwd)
        {
        echo fuck;
        }

        //mysql_free_result($result);
        mysql_close($link);
?>