易截截图软件、单文件、免安装、纯绿色、仅160KB

vb.net操作数据库之ACCESS(1)

  一直想写下数据库操作方面的,只是没什么时间(好像是借口,应该是懒或者没心情吧,呵呵)。最近发现CSDN上
还是每天有人要问这些内容,我有的时候就懒的回答,呵呵,主要不断的去找代码给他们累啊。所以还是听高人的,来
个一劳永逸,自己重新温习下,也好给其他人一些帮助。
 
    这个数据库操作我会写个系列性的吧, 先写ACCESS。不知道这个一篇能写多长,不行我要分级篇了。
    其实ACCESS的操作基本都其他数据库一个样,只是长的不一样,大家有种畏惧还是陌生?其实是纸老虎啦。
    好了,先说连接方面:
Public Function DB_CnStr() As String
Return "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "./FlashCard.mdb"
End Function
  上面的代码就是一个公用函数,因为多处要用到,懒得每次都写,直接调用下就OK了。中间部分就是一个数据库连接字串,
Data Source=" & Application.StartupPath & "./FlashCard.mdb"这里就是设置你的数据库地址,具体代码不用我解释了吧?
    如果有密码就需要再加一个账号密码了.
     User ID=myUsername;Password=myPassword
这个资料太多了,也基本差不多,随便抓抓就来咯。
那下面是不是要说说如何操作了?对,操作数据库嘛,无非就是查询,增加,删除,修改这几种。代码方面基本也差不多了,只是SQL上要换名字。废话不说了,直接上代码好了。
‘这里就是“查询”部分咯,具体怎么查是写SQL的问题了,先不讨论
’先连接
DBConnection.ConnectionString = DB_CnStr()
DBConnection.Open()
'开始查询
Dim sql As New System.Text.StringBuilder
sql.Append(" SELECT * from WORDINFO")
sql.Append(" WHERE CLASS='").Append(Classstring).Append("'")
Dim cmd As New OleDb.OleDbCommand(sql.ToString, DBConnection)
Dim RS As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(cmd)
DT = New DataTable
RS.Fill(DT)
DBConnection.Close()
'有查到则显示出来
Rowcount = DT.Rows.Count
If Rowcount = 0 Then
MsgBox("No Reco


相关文档:

VB实例 —万年历 (1)

1、创建控件:lbl1、txt1、lbl2、cmd1
2、lbl1.caption=输入日期(任一种正确格式):
设置lbl1、txt1、lbl2、cmd1的字体大小及颜色;
3、双击按钮“确认”,添加代码,效果为:
    Option Explicit
        Private Sub cmd1_Click()
  &nb ......

几年前写的一个 access 访问类 dbutils


using System;
using System.Data;
using System.Xml;
using System.Data.OleDb ;
using System.Collections;
namespace ePhoto.AccessDAL
{
/// <summary>
/// DBUtil 操作Access数据库
/// </summary>
public class DBUtil
{
private Hashtable parmCache = Hashtable.Synchronized(new ......

java rmi 编程出现的access denied问题解决

java 用rmi编写客户/服务程序
出现access denied 问题
因为不知道怎么配置 策略文件 就将客户端的System.setSecurityManager(new RMISecurityManager())删了,运行java ProductClient 
成功!
配置策略文件得之后才弄啦 ......

sql2005 + VB6.0 在VB6.0中拼SQL 注意"()"

今天在调试的过程中发现 在vb中拼SQL的时候发现"()" 作用很大
eg: table: T_TEST col : T_KB int ,S_CD int ,Z_SU int
dim gcstrT_1 ,gcstrT_3  as integer
gcstrT_1  = 1
gcstrT_3  = 3
 strWhere = strWhere &  "……"
 strWhere = strWhere &  "AND ((T_K ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号