关于cyq．data的使用方法之VB.net

2012/4/22 12:35:08

第一次见到这个ＤＬＬ是在cnblogs里看到的，当时自己正用的dbhelper类，但用上了这个ＤＬＬ后确实爱上了他，这个DLL的功能实在太强大了，本人菜鸟一步一步的教着大家怎么样在vb.net下使用这个cyq.data插件．

1.下载地址

首先下载作者的插件

http://cyqdata.com/download/article-detail-426

下载4.55版本．下载后解压

2.引用

然后

　　引用后，导入命名空间

Imports CYQ.Data

3.下面是一个vb.net下简单的查询　

connstr代表连接字符串

U_simpleENum.f_Sites 是表名，也可以是sql语句，如果是sql语句得　这样"(sql) /v"

这就是一个简单的查询绑定了

Sub LoadGrid()

Dim action As New MAction(U_simpleENum.f_Sites, connstr)

Invoke(New DelegateSub(AddressOf AddLog), "共有站点: " & action.GetCount(""))

action.Bind(ddlUserName, "1=1", "SiteDomain", "id")

绑定下拉列表ddlUserName　条件是1=1,文字部分是sietdomain, 值是iD

action.Select().Bind(DataGridView1) '绑定

action.Close()

End Sub

上面部分包括了查询，绑定datagridview，下拉列表等操作，下面再给出更新，删除等操作

　 4.检查某个值存在与否

Dim action As New MAction(U_simpleENum.f_Sites, connstr)

If action.Exists("SiteDomain='" & TxtSiteDomain.Text & "' or tkKey =' " & TxttkKey.Text & "' ") Then

MsgBox("域名或者TKkey存在") : action.Dispose()

Exit Sub

end if

"SiteDomain='" & TxtSiteDomain.Text & "' or tkKey =' " & TxttkKey.Text & "' "

这个就是条件了．．

5.一个更新示例

Dim action As New MAction(U_simpleENum.f_Sites, connstr)

action.SetAutoPrefix("Txt")

　　　　　我是让他去取text对象的文本，并对应到数据库的字段

比如TxtDescription对应的就是数据库的Description

action.GetFrom(TxtDescription)

action.GetFrom(TxtSiteDomain)

action.GetFrom(TxtSitename)

action.GetFrom(TxtTemplateDir)

action.GetFrom(TxttkKey)

action.GetFrom(TxtKeywords)　

If (action.Update(TxtID.Text, True)) Then

'更新成功,是不是很简单呢？'

' action.Select().Bind(DataGridView1) '绑定

action.Close()

End If

6.再来一个删除示例

Dim action As New MAction(U_simpleENum.f_Sites, connstr)

action.Set(ID, 1)　'选取id=1的行
action.Delete()'删除

action.Close()'关闭，

也同样很简单～，欢迎大家探讨下，我也是刚开始使用这个控件，只是觉的这个控件对我的写程序帮助很大，能让程序更简洁，很感谢这个控件的作者能让够开源让我们免费使用，如果大家使用过程中有什么困难，可以在下面留言，我将为大家解答～

7.mpro示例

Dim proc As New MProc("update [f_Keywords] set ItemsCount = (select COUNT(id) from [f_ItemsMap] I where I.Kid = [f_Keywords].Kid)", connstr)

debug.writeline "受影响的行 >> " & proc.ExeNonQuery()

proc.ResetProc("update a set a.sid=b.id from f_Keywords as a inner join f_sites as b on a.tkKey=b.tkKey")

debug.writeline "受影响的行 >> " & proc.ExeNonQuery()

proc.Dispose()

proc = Nothing

ggaatt

vb.net

浏览(2886)

关键字 data

CYQ插件爱好者