1、新建一個(gè)標(biāo)準(zhǔn)的VB EXE工程,只有一個(gè)Form,F(xiàn)orm上有兩個(gè)按鈕:Command1和Command2。
凌源網(wǎng)站建設(shè)公司成都創(chuàng)新互聯(lián),凌源網(wǎng)站設(shè)計(jì)制作,有大型網(wǎng)站制作公司豐富經(jīng)驗(yàn)。已為凌源成百上千提供企業(yè)網(wǎng)站建設(shè)服務(wù)。企業(yè)網(wǎng)站搭建\成都外貿(mào)網(wǎng)站建設(shè)要多少錢,請(qǐng)找那個(gè)售后服務(wù)好的凌源做網(wǎng)站的公司定做!
2、雙擊Command1添加如下代碼
Private Sub Command1_Click()
Dim strFile? ? ?As String
Dim intFile? ? ?As Integer
Dim strData? ? ?As String
strFile = "c:\學(xué)生成績(jī).txt"
intFile = FreeFile
Open strFile For Input As intFile
strData = StrConv(InputB(FileLen(strFile), intFile), vbUnicode)
Debug.Print strData
Close intFile
End Sub
3、按F8開始單步調(diào)試代碼,點(diǎn)擊Command1,進(jìn)入單步調(diào)試功能,
4、多次按下F8或直接按下F5運(yùn)行完成,就完成了讀取文本文件內(nèi)容并輸出到立即窗口。
孩子,如果你從你單擊事件上下手,就好辦了,先弄明白,點(diǎn)擊了什么,datagridview點(diǎn)擊,可以獲取單擊的值,好辦,用SQL語(yǔ)句去查詢單擊的這個(gè)值,把查到的結(jié)果再交給你要處理的地方,我常這么干。我從來不曉得什么表與表之間的關(guān)聯(lián),或者關(guān)系表什么鬼東西,但是我也可以操作很多張表,把它們的結(jié)果集一起顯示出來。
Dim 表1 As New DataSet
Dim 對(duì)象1 As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter("select top * from表名 where 字段名 = '" DataGridView1.CurrentCell.Value "' ", 數(shù)據(jù)源)
對(duì)象1.Fill(表1, " 表名")
DataGridView2.DataSource = 表1.Tables(" 表名")
表1 = Nothing
對(duì)象1 = Nothing
如果寫成這樣,還嫌不夠,一定要按你的意思去寫,那我真的要瘋了。
這個(gè)例子,就是把表格1點(diǎn)擊的值查一個(gè)結(jié)果集,在表格2上顯示,不知有沒有你想要的表達(dá)式?
一、二進(jìn)制文件讀寫
1、寫二進(jìn)制數(shù)據(jù)到指定目錄
==將barray字節(jié)數(shù)組中的數(shù)據(jù)創(chuàng)建在strFilename目錄文件下,存儲(chǔ)格式為二進(jìn)制,F(xiàn)alse表示不添加,直接覆蓋創(chuàng)建。
2、從指定路徑下讀取二進(jìn)制數(shù)據(jù)到數(shù)組
==將目錄中的文件讀取到barry字節(jié)數(shù)組中,即讀取二進(jìn)制文件。
二、字符文件的讀寫
1、 將txtFile控件中的字符寫到srtFileName指定目錄,以創(chuàng)建方式。
2、從srtFileName目錄中的文件讀取到txtFile控件
1、實(shí)現(xiàn)上傳按鈕方法代碼。
2、判斷圖片對(duì)象是否為空代碼。
3、取得數(shù)據(jù)庫(kù)字段 dt.Rows(0)("Pic")方法代碼。
4、字節(jié)數(shù)組轉(zhuǎn)換為Image類型方法代碼。
5、處理SQL中操作Image類型方法代碼。
6、實(shí)現(xiàn)的上傳結(jié)果。