my草摩夹的个人资料 - RAT

my草摩夹 my草摩夹

关注数: 3 粉丝数: 8 发帖数: 116 关注贴吧数: 20

致青春有木有人对致青春这部电影有兴趣的~？

我是vb小白 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_search.Click Ds.Clear() '定义一个Connection对象,并指定所用的连接字符串即变量StrChar的值 Dim SqlConn As New OleDb.OleDbConnection(StrChar) '定义两个字符串变量,其中FindSQL用于写SQL语句的字符串变量, Dim a, b, FindSQL As String a = ComboBox1.Text b = ComboBox2.Text FindSQL = "select b_no,b_name,w_name,quatity from detail where detail.year= a and detail.month=b" '至此,查找字符串已经拼写完毕放在变量FindSQL中 '定义一个DataAdapter对象，并通过Connection对象连接数据库发出SQL命令查找满足条件的记录 Dim SqlAdapter As New OleDb.OleDbDataAdapter(FindSQL, SqlConn) SqlAdapter.Fill(Ds) ' 将DataAdapter执行过后的结果填入到DataSet对象中 If Ds.Tables.Item(0).Rows.Count < 1 Then '判断当前表是否有记录 MsgBox("查无此记录!") '如果当前表没有记录，即没有记录满足条件，则提示用户无此记录 FormInit() '通过调用FormInit()过程重新打开数据库同时将数据库的头条记录显示到各个相对应的文本框里 Exit Sub '用Exit语句退出本过程 End If ShowData(Ds, 0) '调用过程ShowData()将数据库的第一条记录显示到各个相对应的文本框里 End Sub 测试中显示 SqlAdapter.Fill(Ds) 至少一个参数没被指定值

日历插图片啊~ cdrx4里增强插件中制作日历里怎么插图片啊？？

1 下一页