CYQ插件爱好者

Power by CYQ插件爱好者
公告信息
这里是一个探讨cyq.data的地方,欢迎大家一起讨论!
文章分类
文章档案
文章
关于cyq.data的使用方法之VB.net
2012/4/22 12:35:08
    第一次见到这个DLL是在cnblogs里看到的,当时自己正用的dbhelper类,但用上了这个DLL后确实爱上了他,这个DLL的功能实在太强大了,本人菜鸟一步一步的教着大家怎么样在vb.net下使用这个cyq.data插件.

1.下载地址
  首先下载作者的插件



下载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   浏览(2227)   评论(1)   关键字 data
威少[218.107.16.*] : 2012/4/22 14:59:57
不错,很强大的组件。
  
Copyright © 2010-2020 power by CYQ.Blog - 秋色园 v2.0 All Rights Reserved