TextBox1.setforcus 表單用
主系統 <==>類別元件
||
=== WebBrowser====AppServ-php====databbase
表單得工具箱=按右鍵=新增控制項=選Microsoft.WebBrowser=確定
表單上的按鈕
Private Sub CommandButton1_Click()
On Error Resume Next
WebBrowser1.Navigate2 ("http://www.google.com")
End Sub
ex:
On Error Resume Next
Dim url As String
If TextBox1 <> "" Then
url = TextBox1.Text
WebBrowser1.Navigate2 (url)
Else
MsgBox "請輸入網址"
TextBox1.SetFocus
End If
WebBrowser1.Navigate2 ("http://192.168.1.26:80/hopechang/php01.php")
結合php
<!DOCTYPE html>
<html>
<body>
<?php
echo "My first PHP script!</BR>";
$con=@mysql_connect("localhost","root","12345678") or die("connect failed");
if(!@mysql_select_db("persondb",$con)) die("DB wanted failure");
mysql_query("set names utf8",$con);
$re=mysql_query("select * from persondata");
while ($tbl=mysql_fetch_array($re)){
print $tbl[0];print ",";
print $tbl[1];print ",";
print $tbl[2];print ",";
print $tbl[3];print ",";
print $tbl[4];print ",";
print "</BR>";
}
mysql_close($con);
?>
</body>
</html>
============================================================
HeidiSQL_9.3 MySql資料庫介面用法
![]() |
加主鍵 |
沒有留言:
張貼留言