vb点虐 设置模块调用 vbnet single

vb点虐 新建“windows应用程序”如何添加模块？

点虐 没有VB6中模块的概念.可以添加类,或组件.右键单击工程,就可以在弹出菜单看到相关菜单项

成都创新互联公司作为成都网站建设公司，专注网站建设公司、网站设计，有关企业网站设计方案、改版、费用等问题，行业涉及白乌鱼等多个领域，已为上千家企业服务，得到了客户的尊重与认可。

VB.NET通过调用模块怎么建立access数据库?

oledb的使用网上的确很多.

如果只是查询. 写入. 删除,我们常用的就是

OleDbConnection '用于写数据库的连接

OleDbCommand '用于数据的操作 接收SQL语句 并执行

OleDbDataReader '查询了,我们就用这个类来读取查询的对象

1).OleDbConnection

dim conn as new OleDbConnection("Provider = Microsoft.Jet.OLEDB.4.0;Data Source =数据库的路径")'连接字符串一般就这样

查询前在打开

conn.open

2).OleDbCommand

dim cmd as new OleDbCommand ("SQL语句",conn)'SQL语句决定了你是查询写入还是更新删除

'''

如果是查询,你还要用到OleDbDataReader

这个是不用新建的不能用New

dim rd as OleDbDataReader=cmd.ExecuteReader'cmd.ExecuteReader 方法就是读取查询的内容

cmd.ExecuteNonQuery用于执行操作 返回变动的条数 ,一般用于 添加 删除 更新 等其它操作

其实就这些了,就是要学点SQL语句就行了.

标准执行过程就是

Dim conn As New OleDbConnection("连接字符串")

conn.Open()

Dim cmd As New OleDbCommand("SQL语句", conn)

'如果是写入 更新 删除 则

cmd.ExecuteNonQuery()

' 否则

Dim rd As OleDbDataReader = cmd.ExecuteReader

If rd.Read Then

Dim d As Object = rd.Item("字段名")

End If

' 结束如果

rd.Close()

cmd.Dispose()

conn.Close()

上面要有 Imports System.Data.OleDb

在vb点虐 中怎么调用自定义类？

代码已测试。

一、测试需要的INI文件。名称为“setinfo.ini”，存放路径为你解决方案里“Bin“文件夹的”Debug“文件夹里。

内容：

[Location]

pnlTime.Location.X=787

pnlTime.Location.Y=0

[TopMost]

Top=True

二、操作INI文件的类。新建一个类，类中内容为：

Public Class Class1

Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" _

( _

ByVal lpApplicationName As String, _

ByVal lpKeyName As String, _

ByVal lpDefault As String, _

ByVal lpReturnedString As String, _

ByVal nSize As Int32, _

ByVal lpFileName As String _

) As Int32

End Class

三、界面代码：

Imports System.IO 'for path

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

getINI()

End Sub

Private Sub getINI()

Dim iniclass As New Class1 '

Dim myBf As String 'get set_info 开辟存储的内存

myBf = New String(CChar(""), 256)

Dim myFN As String '配置文件的文件路径

myFN = Path.Combine(My.Application.Info.DirectoryPath, "setinfo.ini")

Dim myAN As String 'Application_NAME,也是Section名称

myAN = Me.TextBox1.Text

Dim myKN As String 'KEY_NAME,关键字名称

myKN = Me.TextBox2.Text

Class1.GetPrivateProfileString(myAN, myKN, "", myBf, myBf.Length, myFN) '调用读取INI文件的操作

TextBox3.Text = Microsoft.VisualBasic.Left(myBf, InStr(myBf, Chr(0)) - 1) '截取有用部分,有必要

End Sub

End Class

四、测试截图如下