1、首先打開Visual Studio 2008代碼窗口,添加引用。
成都地區(qū)優(yōu)秀IDC服務(wù)器托管提供商(成都創(chuàng)新互聯(lián)公司).為客戶提供專業(yè)的雅安服務(wù)器托管,四川各地服務(wù)器托管,雅安服務(wù)器托管、多線服務(wù)器托管.托管咨詢專線:13518219792
2、輸入以下代碼:Public conn1 ?As SqlConnection = New SqlConnection 。
3、聲明關(guān)鍵字 Public;(因為是全局變量,所以用Public 來聲明)。
4、如果SQL 數(shù)據(jù)庫就在本機,則用以下代碼連接。
5、如果代碼太長,影響可讀性,可以用空格加"_"后,回車換行即可。
sQueryString是SQL(增刪查改)語句
public
Boolean
ExecSQL(string
sQueryString)
{
SqlConnection
con
=
new
SqlConnection(ConfigurationManager.AppSettings["conStr"]);
con.Open();
SqlCommand
dbCommand
=
new
SqlCommand(sQueryString,
con);
try
{
dbCommand.ExecuteNonQuery();
con.Close();
}
catch
{
con.Close();
return
false;
}
return
true;
}
}
建立一個類,明自己取,然后調(diào)用就是了
例如:
類
BC=NEW
類();
STRING
ist="INSERT
INTO
XX(1,2,3)VALUES(A,B,C)";
BC.ExecSQL(ist);
就可以了
是不是這樣:
private
sub
form_load()
dim
r
as
string
open
"c:\1.txt"
for
input
as
#1
'假設(shè)你的文檔是c:\1.txt
do
while
not
eof(1)
line
input
#1,r
combo1.additem
r
loop
close
#1
end
sub
如果這樣,就直接用1.txt,但要注意的是你的1.txt要和你的程序放在同一文件夾中。
使用webbrowser控件來加載網(wǎng)頁,然后再
Private
Sub
WebBrowser
1_DocumentCompleted下通過使用WebBrowser1.Document.Body.
InnerHtml
來獲取網(wǎng)頁的源代碼,或使用
WebBrowser1.Document.Body.InnerText來獲取網(wǎng)頁中的文本。之后可以通過字符串控制指令或者
正則表達(dá)式
來精確獲取到你所需的數(shù)據(jù)。
'各項查詢條件為空的時候用 1=1來代替
'例如:
tmpSelIDStr=Trim(txtSelectId.Text)
if tmpSelIDStr="" then
tmpSelIDStr=" 1=1 "
Else
tmpSelIDStr=" 員工編號='" tmpSelIDStr "'"
End If
'同理其它的都這么處理
'最后合并起來
sqlstr="select ..... from .... where " tmpSelIDStr " and " tmp ....
'不知道這樣回答你是否可以理解