len、right的意義,如何調用子過程,VB連接ACCESS,WTTH語句

這是我在BAIDU上的回答,僅供參考

一、寫出 len(“right(“student”,5)”)的返回值說LEN,RINGT的函數意義
二、DIM A (9) AS INTEGER,寫出A的元素個數,並列舉出A
三、閱讀代碼,說意思
private sub label1_click()
label1.move label1.left+750,label1.top-550
四、什麼是調用子過程,有幾種方法
五、用VB程序代碼建立一個數據連接(D:DATA BASE STUDENT MDB)並打開
六、在VB中何時用WTTH語句?方法

一、Len:求字符串的長度,返回 Long,其中包含字符串內字符的數目,或是存儲一變量所需的字節數。

語法
Len(string | varname)
Len("right("student",5)"),這個是不是應該是這樣 Len(right("student",5)),其返回值爲5,因爲它的

意思是先取student右邊5個字符,然後返回它的長度,這個當然是返回5了。

Right是取指定數量的字符。返回 Variant (String),其中包含從字符串右邊取出的指定數量的字符。

語法
Right(string, length)

二、Dim a(9)As Intger 共有10個元素,VB數組是以0爲默認下標的,從0到9一共10個。

三、label1.move label1.left+750,label1.top-550 ,單擊label1時使label1的位置在現有的基礎上左邊

距加750t,上邊距減550t。

四、調用子過程就是把一個難度很大的任務轉化成幾個難度較小的子任務,並通過添加參數來調用,可以達

到簡化程序設計的目的,完成子任務的那部分就是過程,在程序中使用子過程可以簡化程序設計、提高編程

效率、增加程序的可讀性和重用性。

調用子過程的方法主要有兩種:
(1) 用Call語句調用Sub過程

語法:Call 過程名(實在參數表)
實在參數的個數、類型和順序,應該與被調用過程的形式參數相匹配,有多個參數時,用逗號分隔。

(2)把過程名作爲一個語句來用

語法:過程名 [實參1[,實參2……]]
它與(1)的不同點是:去掉了關鍵字和實參列表的括號

如上例中可以改成:area a,b,c,w


五、用VB程序代碼建立一個數據連接(D:/DATABASE/STUDENT.MDB)並打開連接,這裏有幾種方法,可以參考下我的BLOG:http://blog.csdn.net/qvbhdnvto/archive/2006/09/18/1233875.aspx

第一種:
Dim rsAccess As Recordset
Dim ConnAccess As New Connection
Dim StrSQLAccess As String
Dim i As Integer
DBSeaverPath="D:/DATABASE"

ConnAccess.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" + DBSeaverPath +

IIf(Len(DBSeaverPath) > 3, "/" & "STUDENT.MDB;", "STUDENT.MDB;") + " Jet OLEDB:Database

Password=;"

StrSQLAccess = "Select * from Users order by id asc"
Set rsAccess = New Recordset
rsAccess.Open StrSQLAccess, ConnAccess, adOpenStatic, adLockOptimistic

If rsAccess.RecordCount = 0 Then End

'Do While Not rsAccess.EOF
' ComboUserName.AddItem rsAccess!Username '此處調用
' rsAccess.MoveNext
'Loop'

rsAccess.Close
Set rsAccess = Nothing
ConnAccess.Close
Set ConnAccess = Nothing

第二種:
Dim strSQL As String
Dim OldWs As Workspace, mainDb As Database, TableMain As Recordset

Condata = "D:/DATABASE/STUDENT.MDB"
SaveSetting App.EXEName, "Data", "Path", Condata
ConStr = ";UID=" & ";PWD="
Set OldWs = DBEngine.Workspaces(0)
Set mainDb = OldWs.OpenDatabase(Condata, False, False, ConStr)

'mainDb.Execute "delete Users"' '此爲刪除
Set TableMain = mainDb.OpenRecordset("select * from Users" & strSearchString)
TableMain.LockEdits = False

'Do Until TableMain.EOF
' If Not IsNull(TableMain("UserName").Value) Then
' UserNameText.AddItem TableMain("UserName").Value
' End If
'TableMain.MoveNext
'Loop

TableMain.Close
Set TableMain = Nothing
mainDb.Close
Set mainDb = Nothing

第三種:
'這是直接用控件,在窗體是放一個DATA控件再直接用,方便!
strSQL = "select * from Users order by id asc"

Data1.DatabaseName = "D:/DATABASE/STUDENT.MDB"
Data1.RecordSource = strSQL
Data1.Refresh

第四種:
'“工程”菜單中選擇“引用”菜單選擇“Microsoft DAO 3.51 Object Library”項'
Public AcessDB As Database
Dim TableMain As RecordSet

Public Sub OpenDatabase ( )
Dim sConeect As String
SConnect = ";PWD =; UID ="
Set AcessDB = Nothing

Set AcessDB = WorksPaces (0 ).OpenDatabase ("D:/DATABASE/STUDENT.MDB",False,sConnect)
End Sub

Set TableMain = AcessDB.OpenRecordSet ( "Users",dbOpenSnapshot )

'Do While Not TableMain.EOF
' ComboUserName.AddItem TableMain!Username '此處調用
' TableMain.MoveNext
'Loop

AcessDB.Close
Set AcessDB = Nothing
TableMain.Close
Set TableMain = Nothing

六、WITH語句主要用在控件對像多屬性設置時,在一個單一對象或一個用戶定義類型上執行一系列的語句。

具體說明如下:

語法
With object
[statements]

End With

With 語句的語法具有以下幾個部分:

描述
object 必要參數。一個對象或用戶自定義類型的名稱。
statements 可選參數。要執行在 object 上的一條或多條語句。


說明
With 語句可以對某個對象執行一系列的語句,而不用重複指出對象的名稱。例如,要改變一個對象的多個

屬性,可以在 With 控制結構中加上屬性的賦值語句,這時候只是引用對象一次而不是在每個屬性賦值時都

要引用它。下面的例子顯示瞭如何使用 With 語句來給同一個對象的幾個屬性賦值。

With MyLabel
.Height = 2000
.Width = 2000
.Caption = "This is MyLabel"
End With

注意 當程序一旦進入 With 塊,object 就不能改變。因此不能用一個 With 語句來設置多個不同的對象。

可以將一個 With 塊放在另一個之中,而產生嵌套的 With 語句。但是,由於外層 With 塊成員會在內層的

With 塊中被屏蔽住,所以必須在內層的 With 塊中,使用完整的對象引用來指出在外層的 With 塊中的對

象成員。

重點 一般來說,建議您不要跳入或跳出 With 塊。如果在 With 塊中的語句被執行,但是 With 或 End

With 語句並沒有執行,則一個包含對該對象引用的臨時變量將保留在內存中,直到您退出該過程。

參考:Visual Basic 語言參考-函數速查  

發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章