VB的问题
那个大哥帮帮我 我vb程序中有点小问题 在我的程序中新建套帐是不能再列表中立即显示新建的套帐 这个里面不能用刷新来实现 我该怎么解决 我的程序如下：
Private Sub Add_Click()
If cnn.State = 1 Then cnn.Close
cnn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=yxsell;Data Source=."
Set yx1 = cnn.Execute("select * from 用户 where 用户名='" & yxadmin & "'")
If yx1.Fields("权限") <> 1 Then
msg = MsgBox("您没有用户管理的权限", vbCritical, "斯凯麒ERP—用户管理")
Exit Sub
Else
Newdatabase.Show 1, Me
End If
End Sub
怎么没人说话 啊？
没看懂
http://C:\Documents and Settings\Administrator\桌面\斯凯麒ERP
就是在菜单中新建的 立即在list—data中能看到新建的套帐
'Dim YongHu As New Recordset
Dim msg As String
Private aDo_DataBase As New ADODB.Recordset
Private Sub Add_Click()
If cnn.State = 1 Then cnn.Close
cnn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=yxsell;Data Source=."
Set yx1 = cnn.Execute("select * from 用户 where 用户名='" & yxadmin & "'")
If yx1.Fields("权限") <>
相关问答：
想在warcraft3里进行写屏操作【如对战平台中的胜负提示信息】，效果就像游戏平台中一样，我试过在一窗口中写入文字，然后一直让窗口强制最前，虽然能实现文字显示，但是文字会不断闪烁，而且有不确定BUG，通过论坛搜 ......
比如说要在1表中的第三列第二行单元中输入“一二三”一要粗体宋体12号字，二 不要粗体 15号字 三斜体5号字
代码应该怎么打？
LZ指的是个什么表格控件呢，貌似只能设置整个表的字体，或者某几行或几列，没有单独设� ......
在vb中怎么判断，插入到数据库中的值是重复的，本人才刚接触VB语言，甚是有好多地方还不懂，还请各位大侠们给出代码，谢谢了呀！！！
插入之前select一下阿。
或者写一个组合SQL插入语句，例如
IF not Exist(
& ......
在下是vb的新手，想写段程序，在vb中，使用wscript调用一些外部的命令，但是程序执行一直有错误，请各位高手帮忙解答下，谢谢。
代码如下：
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
第一次接触CrystalReport
急寻找Vb.net Access 通过查询出的数据输出到CrystalReport的例子.
有的朋友麻烦发来学习.多谢!
跟你的要求差不多，参考一下：
http://topic.csdn.net/u/20090823/21/87af02d3-f4ca-480 ......
