问题集锦

 

主　　题：		sql语句查询错误
作　　者：		zjh96042 ()        Blog   加为好友
等　　级：
信 誉 值：		100
所属社区：		VB 数据库(包含打印，安装，报表)
问题点数：		20
回复次数：		16
发表时间：		2007-2-6 14:39:10

Dim sql As String Dim str As String Dim path As String path = App.path If Right(str, 1) <> "/" Then str = str + "/" Else str = str End If str = "Provider=Microsoft.Jet.OLEDB.4.0;;Persist Security Info=False" sql = "select * from information" Adodc1.Recordset.Open sql, str, adOpenKeyset, adLockPessimistic 我想在information中查询所有字段、记录，使用的是adodc，执行后提示“对象打开时，不允许操作”，请问怎么回事啊？

	zjh96042() ( ) 信誉：100    Blog   加为好友	2007-2-6 15:09:59	得分: 0
	Dim str As String Dim path As String path = App.path str = path If Right(str, 1) <> "/" Then str = str + "/" Else str = str End If str = "Provider=Microsoft.Jet.OLEDB.4.0;;Persist Security Info=False;Data Source=" & str & "studentsinfo.mdb" Adodc1.Recordset.Open "select * from information", str, adOpenStatic, adLockOptimistic 使用的vb6+adodc+access。
Top

	zjh96042() ( ) 信誉：100    Blog   加为好友	2007-2-6 15:57:19	得分: 0
	救急啊，来帮帮我啊！！谢谢了。
Top

	zjh96042() ( ) 信誉：100    Blog   加为好友	2007-2-6 17:17:19	得分: 0
	运行后提示 实时错误3705，对象打开时，不允许操作。
Top

	T2(無藥可救) ( ) 信誉：100    Blog   加为好友	2007-2-6 17:19:33	得分: 0
	Access被独占使用
Top

	zjh96042() ( ) 信誉：100    Blog   加为好友	2007-2-6 17:21:06	得分: 0
	那怎么释放呢？
Top

	clear_zero(clear_zero) ( ) 信誉：100    Blog   加为好友	2007-2-6 17:42:25	得分: 0
	你是不是同时打开了机器上的access阿，把那个数据库关掉再看看
Top

	zjh96042() ( ) 信誉：100    Blog   加为好友	2007-2-6 17:44:54	得分: 0
	access没有打开，只是已经被这个adodc用了，我想在这个基础上根据条件筛选一下字段。
Top

	zjh96042() ( ) 信誉：100    Blog   加为好友	2007-2-6 21:08:17	得分: 0
	快来解答阿
Top

	zjh96042() ( ) 信誉：100    Blog   加为好友	2007-2-6 21:38:25	得分: 0
	高手们在哪里呢
Top

	T2(無藥可救) ( ) 信誉：100    Blog   加为好友	2007-2-8 10:35:39	得分: 0
	如果用ADODC控件不用编写任何代码就可以使用了
Top

	feixiangzaici(feixiangzaici) ( ) 信誉：100    Blog   加为好友	2007-2-8 10:45:22	得分: 0
	把你的数据库加上试试
Top

	sstcc_zhouhua() ( ) 信誉：100    Blog   加为好友	2007-2-8 11:51:21	得分: 0
	是不是Adodc1.Recordset重复打开了，你open之前close试试
Top

	klosefay2() ( ) 信誉：100    Blog   加为好友	2007-2-8 12:44:33	得分: 0
	改种写法吧，我也碰到过，改了下写法就好了。
Top

	jjkk168(老加班的人--好好学习,天天吃饭) ( ) 信誉：112    Blog   加为好友	2007-2-8 14:34:44	得分: 0
	Adodc1.ConnectionString = str Adodc1.RecordSource = sql Adodc1.Refresh
Top

	ctseu(点水清荷) ( ) 信誉：100    Blog   加为好友	2007-2-13 14:35:05	得分: 0
	这不应该是查询语句的错误，用adodc控件，不用写任何代码就可以实现，估计是楼主操作失误。主要是connectionstring属性和recordsource属性的设置： 假如：“connectionstring”设为Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:/mytest/vb/ftptest/database/txtdata.mdb;Persist Security Info=False “recordsource”设为select * from information，然后在界面上放一个datagrid并将datagrid的datasource设为adodc1，运行程序就可以看见表中的数据了。
Top

	ctseu(点水清荷) ( ) 信誉：100    Blog   加为好友	2007-2-13 14:37:40	得分: 0
	我给出一段不用控件，用代码写的数据库连接你看看 Dim adocomm As ADODB.Command Dim rs As ADODB.Recordset linenum = 0 txtname = "20070212" sqlrecordnum = "select recordcode from ftpdata where recordcode like '" & txtname & "%' order by recordcode" If adocomm Is Nothing Then Set adocomm = New ADODB.Command adocomm.CommandType = adCmdText adocomm.ActiveConnection = adoconn End If If rs Is Nothing Then Set rs = New ADODB.Recordset End If rs.Open sqlrecordnum, adoconn, adOpenStatic, adLockReadOnly, adCmdText recordnum = rs.RecordCount
Top

 

 

 

 

主　　题：		vb的command按钮能不能调用access中的窗体文件?请指教,有可能的话请给源码.谢谢!
作　　者：		zsl2008 ()        Blog   加为好友
等　　级：
信 誉 值：		100
所属社区：		VB 数据库(包含打印，安装，报表)
问题点数：		50
回复次数：		9
发表时间：		2007-5-2 19:35:52

我用access作了一个表,在存的时候将其存为窗体,发现将其存为窗体后,界面更漂亮,但是在用vb中没办法用command按钮调用将该窗体显示在VB的窗体中.请高手指点,我是VB新手.谢谢!

	WM_JAWIN(失业,找工作中...) ( ) 信誉：99    Blog   加为好友	2007-5-2 22:42:49	得分: 0
	不是很明白你在说什么
Top

	liuxiaoyi666(MSMVP 小猪妹荣誉马甲之八卦兔子) ( ) 信誉：124    Blog   加为好友	2007-5-3 7:51:07	得分: 0
	在项目中引用ACCESS的对象库 引用:Microsoft Access 10.0 Object Library Private Sub Command1_Click() Set MSAccess = New Access.Application MSAccess.OpenCurrentDatabase ("D:/TEST.mdb") MSAccess.DoCmd.OpenForm "Form1", acPreview MSAccess.CloseCurrentDatabase Set MSAccess = Nothing End Sub
Top

	wuzhu(wuzhu) ( ) 信誉：99    Blog   加为好友	2007-5-5 18:13:28	得分: 0
	大概是想把 ACCESS 里存的图片 放在 CMD 上吧 ?
Top

	zsl2008() ( ) 信誉：100    Blog   加为好友	2007-5-9 22:21:00	得分: 0
	不是. 在vb中比较容易调用表格形式的.mdb,由于我做的表格"列"很多,在计算机屏幕横向方向上根本不能显示完全,对比产品的一些属性比较麻烦,还得用笔记录下来后在作比较.在access2002中,在"对象----表'的下面有"窗体",将表转化为纵栏式表窗体,保存的文件格式仍然是.mdb,我想通过vb的command将这种纵栏式表窗体调入form中并在command_click()时显示在form中,不知我是否说明白了?谢谢!
Top

	zsl2008() ( ) 信誉：100    Blog   加为好友	2007-5-9 22:30:01	得分: 0
	另外,谢谢liuxiaoyi666(MSMVP 小猪妹荣誉马甲之八卦兔子) ! 我按你的源码出现 实时错误'2102' 窗体名称'form1'拼写有误或引用了一个不存在的窗体. 不知这是为什么?
Top

	zsl2008() ( ) 信誉：100    Blog   加为好友	2007-5-12 17:22:05	得分: 0
	怎么没有人再帮帮我呀!!5555555555555555555 "窗体名称'form1'拼写有误或引用了一个不存在的窗体"这个错误已经解决,access纵栏式的窗体还是没能在vb的form显示,然而在xp的进程中access在运行,青各位高手再帮一把呀!谢谢!
Top

	WM_JAWIN(失业,找工作中...) ( ) 信誉：99    Blog   加为好友	2007-5-12 21:17:26	得分: 0
	你这只是显示方式不同，要显示你的数据，你也可以自己做一个显示的控件呀。
Top

	liuxiaoyi666(MSMVP 小猪妹荣誉马甲之八卦兔子) ( ) 信誉：124    Blog   加为好友	2007-5-12 22:14:09	得分: 0
	有空我再研究一下,最近太忙了,要不你帮我写js+dhtml??*^_^* 另外我现在机器没装vs6,回头还要到朋友家拿下盘....
Top

	zsl2008() ( ) 信誉：100    Blog   加为好友	2007-5-12 23:53:17	得分: 0
	WM_JAWIN(失业,找工作中...) -------xdjm我要是是达到你说的程度,就不会这么麻烦大家了.呵呵! 请"liuxiaoyi666(MSMVP 小猪妹荣誉马甲之八卦兔子) "---多多帮忙!
Top

 

 

我这有个函数，参考一下
Public Function SetComboValue(ByRef Combo As ComboBox, ByVal intclassify As Integer) As Boolean
     Dim myrst As ADODB.Recordset
     Dim sql As String
     Dim intCount As Integer
     Dim i As Integer
    
     Call DbConnect
    
     Set myrst = New ADODB.Recordset
    
     sql = SQLforCombo(intclassify)
    
     Set myrst = ExecuteSQL(sql)
    
     If myrst.EOF = True Then
        Combo.Text = ""
     Else
        intCount = myrst.RecordCount - 1
        With Combo
           For i = 0 To intCount
              .AddItem (myrst.Fields(0).Value)
              If myrst.EOF = True Then
                 Exit For
              End If
              myrst.MoveNext
           Next i
           .ListIndex = 0
        End With
     End If
     SetComboValue = True
End Function

 

 

主　　题：		请有经验的朋友指点迷津，关于数据表删除记录的问题
作　　者：		cblearn ()        Blog   加为好友
等　　级：
信 誉 值：		99
所属社区：		VB 数据库(包含打印，安装，报表)
问题点数：		100
回复次数：		7
发表时间：		2007-5-1 16:04:46

我看到有部分人在删除表的记录时候使用了删除标志 也就是设置一个FDelted字段 表示记录是否删除，而实际上该记录并没有从数据表中删除的方法，这种方法使用起来特别麻烦，请问这种方法是否真的适合开发主从表或大的项目，有什么优势或者弊端的？

	xiaolei1982(小磊) ( ) 信誉：100    Blog   加为好友	2007-5-1 16:24:49	得分: 0
	楼主可以看看这个帖子： http://community.youkuaiyun.com/Expert/TopicView3.asp?id=4804445
Top

	cqq_chen(我是谁) ( ) 信誉：96    Blog   加为好友	2007-5-1 16:48:24	得分: 0
	个人看法： 使用删除标志的好处： 1、数据跟踪方便，从系统起用开始所有的数据都保留在系统中，只要打开数据库，所有你所需要的信息都可以很方便地查到。 2、undo功能很容易就可以现实。 3、对操作员的考核比较好进行。 弊端： 可能就是如果时间长了，数据量会比较大一些。
Top

	clear_zero(clear_zero) ( ) 信誉：100    Blog   加为好友	2007-5-1 17:19:59	得分: 0
	弊端：数据量大，需要对这部分数据作备份 优势: 方便数据跟踪，这是一定的 还有就是要看什么样的记录做记号了，客户需要这部分数据，肯定不能删除的。没准人家定期翻出来作处理呢 大的项目主要是要分清什么样的数据可以直接删除，什么样的数据需要做个记号。实在要从客户的角度出发
Top

	cangwu_lee(橙子) ( ) 信誉：98    Blog   加为好友	2007-5-1 18:00:20	得分: 0
	看项目需要而做。
Top

	fishmans(金脚指) ( ) 信誉：94    Blog   加为好友	2007-5-2 11:59:35	得分: 0
	这个一般用在要删除的记录与其他表有关联操作的情况 比如员工资料表，在很多其他表有有引用员工的工号作为关联字段，这种设计的好处就是在其他表中只存在一个字段就可以很方便的代出员工的所有属性资料，这时候要是删除员工资料的话就可能导致其他表的历史数据找不到对应的员工或对应错误，在这种情况下删除员工就应该只做删除标志而不能完全删除
Top

	fishmans(金脚指) ( ) 信誉：94    Blog   加为好友	2007-5-2 12:07:44	得分: 0
	这样做的优势就在于可以用少量的字段关联显示复杂的数据报表，有效减少数据库的数据存储量。 比如一个员工有10个属性资料存在10个字段中，又有10个表需要用到员工的所有属性资料，如果不以关联方式就只能为每个表建10个字段存放员工的10个属性资料，这样就等于一个数据库中多用了100个字段，如果这10个表的数据量都很大的时候，可想而知数据库多维护了多少资料~~而用关联操作则只需要为员工表维护一条10个字段的记录
Top

	cblearn() ( ) 信誉：99    Blog   加为好友	2007-5-9 16:52:32	得分: 0
	单表用删除标志我也觉得不错 但涉及到进销存时候的多种相互关联的一对多关系的表 好象处理起来就特别麻烦 不知道还有没其他好的方法的！
Top

 

 

主　　题：		如何将记录写入access
作　　者：		nizixiao ()        Blog   加为好友
等　　级：
信 誉 值：		100
所属社区：		VB 数据库(包含打印，安装，报表)
问题点数：		20
回复次数：		2
发表时间：		2007-5-10 14:56:56

比如将“王小二”通过程序添加到表“学生资料”的“学生名称”字段中，用的是AccessMDB数据库，完整地代码应该怎么写呀，各位大虾救命

	bbhere(俺是二等小兵(baby,i'll be right here waiting for you)) ( ) 信誉：100    Blog   加为好友	2007-5-10 15:06:03	得分: 0
	rs.open "select 学生名称 from 学生资料",cnn,1,1 rs.addnew rs("学生名称").value="王小二" rs.update
Top

	yueer21cn() ( ) 信誉：100    Blog   加为好友	2007-5-12 13:53:53	得分: 0
	楼上正解
Top