1.语言/环境基础
--项目的组成
--语言基础
  ----变量的作用域和生存期
  ----基本语句(for循环,赋值语句let(普通变量赋值),set(对象的赋值,只用set),分支语句)
  ----静态数组和动态数组(数组的声明,上下界确定,动态数组的使用,定义新的之后,怎么保留以前的数据)
  ----主要的系统函数和过程(ByVal和ByRef ,整数,传值和传引用的区别)
--环境
  ----菜单
  ----工具箱(各个控件的特点)
  ----属性窗口
2.窗体
--基本特征
   -----SDI/MDI
   -----启动窗体
--主要属性
   ----Width/ScaleWidth/Caption/Name/```
--主要方法
   ----Show/Load/PaintPicture/ValidateControls
--主要事件
   ----Load/Query/Unload/Initatialize/Terminate/```
3.控件
--区别
   ----内置控件/扩展控件/第三方控件
--控件基础
   ----控件值
   ----Enabled/Visible/TabIndex
   ----CauseValidation属性和Validate事件
   ----AutoRedraw和ClipControl属性
--主要内置控件(主要属性/方法)
4.对象的使用
--基础
&nb ......

  一直想写下数据库操作方面的，只是没什么时间（好像是借口，应该是懒或者没心情吧，呵呵）。最近发现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"这里就是设置你的数据库地址，具体代码不用我解释了吧？
    如果有密码就需要再加一 ......

  一直想写下数据库操作方面的，只是没什么时间（好像是借口，应该是懒或者没心情吧，呵呵）。最近发现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"这里就是设置你的数据库地址，具体代码不用我解释了吧？
    如果有密码就需要再加一 ......

   上一篇中我已经说了下如何操作ACCESS数据库，下面来说说存取图片，声音之类的问题。
   由于图片，声音不能直接存储，这里就要用到数据流方式了。对于.NET中的一些术语概念我仍然很迷糊，在学习中。主要我不是专业的，
只是开始学了点VB6代码，然后就用VB.NET了，所以目前只是会写点代码，却不知道原理，很惭愧。
    哎哟，走题了，赶紧回来，不好意思！
   
     好吧，我们先看看图片和声音的存储和读取。看下代码。
’这段代码是插入图片和声音的代码
’第一个就是图片了，path当然是图片的地址了
Picturebyte = My.Computer.FileSystem.ReadAllBytes(PicturePath)
’下面这个就是声音咯，voicepath自然还是声音地址了
Voicebyte = My.Computer.FileSystem.ReadAllBytes(VoicePath)

‘这里就开始照旧写SQL，区别以前的地方就是这里是用COMMAND的一个参数来赋值
str = New System.Text.StringBuilder
str.Append(" INSERT INTO ......

   上一篇中我已经说了下如何操作ACCESS数据库，下面来说说存取图片，声音之类的问题。
   由于图片，声音不能直接存储，这里就要用到数据流方式了。对于.NET中的一些术语概念我仍然很迷糊，在学习中。主要我不是专业的，
只是开始学了点VB6代码，然后就用VB.NET了，所以目前只是会写点代码，却不知道原理，很惭愧。
    哎哟，走题了，赶紧回来，不好意思！
   
     好吧，我们先看看图片和声音的存储和读取。看下代码。
’这段代码是插入图片和声音的代码
’第一个就是图片了，path当然是图片的地址了
Picturebyte = My.Computer.FileSystem.ReadAllBytes(PicturePath)
’下面这个就是声音咯，voicepath自然还是声音地址了
Voicebyte = My.Computer.FileSystem.ReadAllBytes(VoicePath)

‘这里就开始照旧写SQL，区别以前的地方就是这里是用COMMAND的一个参数来赋值
str = New System.Text.StringBuilder
str.Append(" INSERT INTO ......

这一篇我再说说水晶报表的情况。ACCESS中对应水晶报表方面，大家可能会遇到的最多的问题应该就是打开报表后
会出现需要登录的问题。
这个是为什么呢？明明我没有设置密码，怎么会有要输入密码呢？如果你够沉着，如果你的debug经验不缺乏的话，
你会发现在水晶报表跳出输入密码的登录框中，access的路径不是我现在数据库放置的位置，仍然是我在编码的时候
选择的数据库地址。他为什么没有变呢？其实这个时候你需要问，这个地址为什么要变？
当你使用公用服务器的时候，可能不会出现这个问题，因为你不管到哪个客户端使用，服务器地址不会变。然而你用access，
当数据库跟着换了电脑后，服务器地址当然也变了，而你编码中的地址却没有变，这个就是问题出现的原因咯！明白了吧？
其实是很简单的一个道理。
那怎么办呢？老规矩，看代码。
‘数据库连接
DBConnection.ConnectionString = DB_CnStr()
DBConnection.Open()
'开始查询
Dim sql As New System.Text.StringBuilder
Dim DT As New DataTable
sql.Append(" SELECT * from WORDINFO")
Dim cmd As New OleDb.OleDbCommand(sql.ToStri ......

这一篇我再说说水晶报表的情况。ACCESS中对应水晶报表方面，大家可能会遇到的最多的问题应该就是打开报表后
会出现需要登录的问题。
这个是为什么呢？明明我没有设置密码，怎么会有要输入密码呢？如果你够沉着，如果你的debug经验不缺乏的话，
你会发现在水晶报表跳出输入密码的登录框中，access的路径不是我现在数据库放置的位置，仍然是我在编码的时候
选择的数据库地址。他为什么没有变呢？其实这个时候你需要问，这个地址为什么要变？
当你使用公用服务器的时候，可能不会出现这个问题，因为你不管到哪个客户端使用，服务器地址不会变。然而你用access，
当数据库跟着换了电脑后，服务器地址当然也变了，而你编码中的地址却没有变，这个就是问题出现的原因咯！明白了吧？
其实是很简单的一个道理。
那怎么办呢？老规矩，看代码。
‘数据库连接
DBConnection.ConnectionString = DB_CnStr()
DBConnection.Open()
'开始查询
Dim sql As New System.Text.StringBuilder
Dim DT As New DataTable
sql.Append(" SELECT * from WORDINFO")
Dim cmd As New OleDb.OleDbCommand(sql.ToStri ......

     '在引用里添加ADODB
Public vscn As ADODB.Connection
Public SQLString As String
SQLString = "Provider=SQLOLEDB.1;Password=密码;Persist Security Info=True;User ID=用" & _
"户;Initial Catalog=数据库名;Data Source=服务器名"
           
        vscn = New ADODB.Connection
        With vscn
            .Mode = ADODB.ConnectModeEnum.adModeReadWrite
            .CursorLocation = ADODB.CursorLocationEnum.adUseClient
            .ConnectionString = SQLString
            .ConnectionTimeout = 60
            .Open()
        End Wi ......

     '在引用里添加ADODB
Public vscn As ADODB.Connection
Public SQLString As String
SQLString = "Provider=SQLOLEDB.1;Password=密码;Persist Security Info=True;User ID=用" & _
"户;Initial Catalog=数据库名;Data Source=服务器名"
           
        vscn = New ADODB.Connection
        With vscn
            .Mode = ADODB.ConnectModeEnum.adModeReadWrite
            .CursorLocation = ADODB.CursorLocationEnum.adUseClient
            .ConnectionString = SQLString
            .ConnectionTimeout = 60
            .Open()
        End Wi ......

        Dim rs As ADODB.Recordset
Dim sqlstr As String
 
'查询
        sqlstr = "select * from 表名 where 字段名 = '" & 查询的内容 & "'"
        rs = VScn.Execute("" & SqlStr & "")
        If Not rs.EOF Then
            TextBox1.Text = rs("字段名").Value.ToString
        End If
 
         '修改
        sqlstr = "update 表名 set 字段名= '" & 要修改的内容 & "' where 字段名= '" & 查询的内容 & "'"
        VScn.Execute(sqlstr)
 
         '删除
sqlstr = "delete from 表名 where 字段名= '" & 查询的内容 & "'"
        ......

        Dim rs As ADODB.Recordset
Dim sqlstr As String
 
'查询
        sqlstr = "select * from 表名 where 字段名 = '" & 查询的内容 & "'"
        rs = VScn.Execute("" & SqlStr & "")
        If Not rs.EOF Then
            TextBox1.Text = rs("字段名").Value.ToString
        End If
 
         '修改
        sqlstr = "update 表名 set 字段名= '" & 要修改的内容 & "' where 字段名= '" & 查询的内容 & "'"
        VScn.Execute(sqlstr)
 
         '删除
sqlstr = "delete from 表名 where 字段名= '" & 查询的内容 & "'"
        ......