基于Redis先驱开发的存储有aerospike,vedis,ssdb,解决了多语言多线程分布式环境下快速存储问题,比mysql传统数据库要快,有的和redis协议兼容,方便更换存储引擎。
我来回答,快给我分啊!!!!一、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.0Data 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 语言参考-函数速查
1、在本地和服务器都安装同样的数据库客户端,如oracle常用SQLPlus、MySQL常用HeiDi sql或者navicat、mssql2005则常用SQL Server Management Studio;2、在本地通过数据库客户端导出数据库为sql文件;
3、将sql文件远程传递到服务器上;
4、在服务器上用相同的数据库客户端将sql文件执行一遍即可将本地数据库导入到服务器上。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)