VB程序员博客

我想为我的软件添加一个注册的功能!
谁能给个教程或者代码?网上搜索一下读取硬盘序列号的代码Leftie 对的!!
通过硬盘序列号的代码  来实现注册!!!
你去枕善居看看,有那样的代码示例!!!!
都很牛X的代码!

我添加了几个控件，然后，我想下次打开VB6.0时，这几个控件还存在，该怎么做？在设计时添加打开VB6.0
**************
到底是打开VB6.0，还是打开你的程序？<
你要的是在你的程序运行时添加的控件，在下次打开VB6.0时，这几个控件还存在？

把你设计的工程做成模板。可以用自定义模板解决.
参阅:改造VB集成编程IDE环境满足特殊需要<
<

我原来在窗体运行时列表框自动添加数据表中的一个字段的记录。

现在，想在窗体运行时，
自动在列表框中最后一个记录后面添加一个为“无”的记录。

退出时，自动将“无”那条记录删除。

请将代码写出来，谢谢！

添加的事件过程我用：

…
rs.AddNew
…
rs.Update
…
rs.Close
conn.Close
Set conn = Nothing
Set rs = Nothing

当然我也有用刷新的事件过程，这里省略。

奇怪的现象是，如果表中起先无记录，当添加完第一条记录后，就选不中MSHFlexGrid2中的行了，此时只有关闭窗体后再打开，才能正确选中行，而如果表中原先就有记录，再添加新的记录后，不会出现此种现象，也就是此时说不用先卸载窗体也能够准确选中行。（附：而无论是原先表中有没有记录，添加动作后都能刷新而显示添加的结果，就是第一种情况不能选中行）顶顶自己添加完了 关闭了档案 你还能去那里找? 破门而入吗?你选中行的代码是怎么实现的?
要选中某行很简单啊,直接 
MSHFlexGrid2.SetFocus
MSHFlexGrid2.Row = 行数  就是了<
<

点击还要和rs结合，对我来说太复杂，还是结帖吧呵呵  谢谢您有问题的话再在这个帖来发问吧 Mshflexgrid + ADODB 我也算熟了<

我装的vb6中文版的，怎么没看到datagrid控件。要如何添加进来？？？选择工程->部件工程——〉部件——〉microsoft datagrid control 6.0再问下如何绑定datagrid到recordset数据源？肯定还有后续问题.一个就是添加adodc,另一个添加adodbset datagrid1.datasource=rs

我装的vb6中文版的，怎么没看到datagrid控件。要如何添加进来？？？选择工程->部件工程——〉部件——〉microsoft datagrid control 6.0再问下如何绑定datagrid到recordset数据源？肯定还有后续问题.一个就是添加adodc,另一个添加adodbset datagrid1.datasource=rs

我装的vb6中文版的，怎么没看到datagrid控件。要如何添加进来？？？选择工程->部件工程——〉部件——〉microsoft datagrid control 6.0再问下如何绑定datagrid到recordset数据源？肯定还有后续问题.一个就是添加adodc,另一个添加adodbset datagrid1.datasource=rs

用vb 编了一个添加文件功能的窗口，可是运行时报错

代码如下：

Private Sub Command2_Click()
    Unload Form2
    Form1.Show
    Form1.Enabled = True
End Sub

Private Sub Command1_Click()

  On Error Resume Next
 
  Form1.Data1.Recordset.AddNew
 
      Form1.Data1.Recordset.Fields(1) = Form2.Text1.Text
      Form1.Data1.Recordset.Fields(2) = Form2.Text2.Text
      Form1.Data1.Recordset.Fields(3) = Form2.Text3.Text
      Form1.Data1.Recordset.Fields(4) = Form2.Text4.Text
 
  Form1.Data1.Recordset.Update
 
  If Err.Number <> 0 Then
    Beep
    MsgBox "输入数据错误，请重新输入", vbCritical + vbOKOnly, "错误信息"
      Exit Sub
  Else
    Form1.Data1.Recordset.Bookmark = Form1.Data1.Recordset.LastModified
  End If
   
  Foem1.Enabled = True
  Unload Form2
End Sub

Private Sub Form_Load()

      Text1.Text = ""
      Text2.Text = ""
      Text3.Text = ""
      Text4.Text = ""

End Sub

报错：

请问怎样解决？上面的文件名写错了，应该是  f20091010.doc，结果一样.Foem1.Enabled = True???????
form1.enabled吧改过来了，问题依旧…你再仔细检查一下数据是否出错？式了一下：
你data1连接正确了没？这是Data1的：
应该没有错飘过这个表的结构是什么？ 这几个字段对应的数据类型是什么？ 另外你机器上的日期格式是什么？Private Sub Command1_Click()

  'On Error Resume Next
  msgbox Form1.Data1.Recordset.recordcount '看这个是否能显示  Form1.Data1.Recordset.AddNew
 
      Form1.Data1.Recordset.Fields(1) = Form2.Text1.Text
      Form1.Data1.Recordset.Fields(2) = Form2.Text2.Text
      Form1.Data1.Recordset.Fields(3) = Form2.Text3.Text
      Form1.Data1.Recordset.Fields(4) = Form2.Text4.Text
 
  Form1.Data1.Recordset.Update
你至少要知道是什么错误：

  If Err.Number <> 0 Then
    Beep
    MsgBox "输入数据错误，请重新输入 " & Err.Number & ":" & Err.Descriptor, vbCritical + vbOKOnly, "错误信息"
      Exit Sub
  Else
    Form1.Data1.Recordset.Bookmark = Form1.Data1.Recordset.LastModified
  End If

或者把 On Error Resume Next 注掉，看看究竟是什么错误。

另外，试试：

      Form1.Data1.Recordset.Fields(0) = Form2.Text1.Text
      Form1.Data1.Recordset.Fields(1) = Form2.Text2.Text
      Form1.Data1.Recordset.Fields(2) = Form2.Text3.Text
      Form1.Data1.Recordset.Fields(3) = Form2.Text4.Text
运行如下代码：
Private Sub Command1_Click()

  'On Error Resume Next
  MsgBox Form1.Data1.Recordset.RecordCount
  'Form1.Data1.Recordset.AddNew
 
      Form1.Data1.Recordset.Fields(1) = Form2.Text1.Text
      Form1.Data1.Recordset.Fields(2) = Form2.Text2.Text
      Form1.Data1.Recordset.Fields(3) = Form2.Text3.Text
      Form1.Data1.Recordset.Fields(4) = Form2.Text4.Text
 
运行如下：

点确定后：

点调式：
按12楼的试过吗,序号从0开始试过，是一样的结果

10楼说这个表的结构是指哪一个表啊？，数据结构和日期格式我检查过应该没有错按照16L改过来了，改为Table，还是显示如下：

RecordSource 的“新增公文”是access表发文日期对应的text的数据库是什么类型，日期吗？改成文本就行，建议用一个DTPicker1来做，data1好像支持access97好点，2000怎么样我不清楚。用ADO做吧。Operation not supported on a Paradox table with no primary key. (Error 3207)

Run the application that created the table and add a primary key. Then, try the operation again.
不好意思看错了，看看以下方式：
Can't update. Database or object is read-only. (Error 3027)

You tried to save changes in a database that was opened for read-only access.

The database is read-only for one of these reasons:

You used the OpenDatabase method and opened the database for read-only access.

The database file is defined as read-only in the operating system or by your network.

The database file is stored on read-only media.

In a network environment, you do not have write privileges for the database file.

When working with a secured database, the database or one of its objects (such as a field or table) may be set to read-only. You may not have permission to access this data with your user name and password.
Close the database, resolve the read-only condition, and then reopen the file for read/write access.
.mdb 文件是否只读？改DefaultType值这几天忙别的事情了，今天才来看帖，真是不好意思，试了很多方法还是不行，还有没有高手提供点意见啊，小弟感激不尽啊还有，19L的做法怎样操作啊？如果你用的是Access那么这样操作：（如果不是就另想办法）
打开“我的电脑”-“工具”-“文件夹选项”-把“使用简单共享”的勾去掉
找到你的数据库点右键-“属性”-“安全”然后给予你当前的账户赋予相应的修改、删除等权限，如果不清楚就赋予“完全控制”的权限，当然你也可以对"everyone"这个账户进行权限赋予，如果你找不到这个账户则点击“高级”-“查找”然后在列表中选择，最后选择“确定”这样这个账户就出现在列表中了。
权限赋予完成后就可以执行你的代码了，这样问题应该就能解决了如果成功请回复一下
不行，运行后：
看你的access文件，是否设为只读了

游标设置如何？小弟不才，你说的游标是指什么？Public Conn As dao.Database

Public Sub MyOpenDataBase(ByVal mdbfile As String, ByVal myPswd As String)
  Set Conn = DBEngine.OpenDatabase(mdbfile, False, False, ";pwd=" & myPswd)
End Sub

用法：
  MyOpenDataBase yourMdbfileName, yourMdbPswd

  Dim rs As dao.Recordset
  Set rs = Conn.OpenRecordset("select * from t where 1=2")
rs.addnew
rs!fieldname1="xxx"
rs!fieldname2="xxx"

rs.update
rs.close

怎样设置游标啊？现在就这个问题了：

谁帮我解决马上给分了，各位高手帮帮忙啊！http://topic.csdn.net/u/20091129/04/87fa21c9-1004-4c03-80c9-74e4c0a0ba0b.html
这个是我最近做的数据库录入的案例，CSDN上也曾经遇到问题，但是已经通过了，希望能帮到你啊

我的工程有driveListBox,DirListBox,FileListBox控件,当我启动了我程序以后,再插入一移动磁盘(或移动硬盘),请问如何将它自动添加到dirveListBox控件的列表上去.大家帮忙看下

请问用drivelistbox控件的什么事件来触发自动添加啊,到不到补充一下,在哪个事件加drive1.refresh最合适啊,最好不要加timer控件

Private Sub Drive1_GotFocus()
Drive2.Refresh
End Sub
这样做好似第一次选时选不中文件,要第二次才出现的

drivelistbox控件所有事件都要人工触发,自动触发就要时间控件

Private Sub Form_Load()
Open App.Path + "cc.txt" For Input As #1 '程序路径下的data.txt文件

Dim x(), y() As String
Dim i As Integer
File.Visible = False
MSFlexGrid1.Cols = 3
MSFlexGrid1.TextMatrix(0, 0) = "年份"
MSFlexGrid1.TextMatrix(0, 1) = "流量"
Do While Not EOF(1)
Line Input #1, mstr
If mstr <> "" Then
arr = Split(mstr, ",")
'这里是以空格为分隔的，如果是逗号就用split(mstr,",")
If UBound(arr) > 0 Then
i = i + 1
ReDim Preserve y(i - 1)
ReDim Preserve x(i - 1)
y(i - 1) = arr(0)
x(i - 1) = arr(1)
MSFlexGrid1.TextMatrix(i, 0) = arr(0)
MSFlexGrid1.TextMatrix(i, 1) = arr(1)
MSFlexGrid1.AddItem ""
End If
End If
Loop
Close #1
End Sub

Private Sub MSFlexGrid1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim i, j As Integer
Dim str As String
Me.PopupMenu File
x = MSFlexGrid1.RowSel
y = MSFlexGrid1.ColSel
str = Me.MSFlexGrid1.Text
Clipboard.SetText str
End Sub
我现在添加了一个菜单File，这段代码，是点击MSFlexGrid1就显示菜单，我要的是但我想要得是鼠标左键选择MSFlexGrid里的一些数据，然后点击右键，弹出菜单，只要一个能复制功能的就行，然后我可以把它粘贴到其他txt文件，就像现在您用鼠标左键在网页上选择一些文字，然后点击右键，弹出像什么“撤销”，剪切，复制之类的，我只要一个复制就可以，该怎么改

先在菜单编辑器里添加一个菜单，设置为不可见，再添加一个子菜单，设置为可见，假如
编辑 menuEdit

……复制 mnuCopy
1．复制功能的实现。

Private Sub MnuCopy_Click()

Clipboar.Clear′将剪贴板清空

′将RichTexBox控件上选择上的内容复制到剪贴板

这里自己添加代码

End Sub

2 在MSFlexGrid1_MouseUp下添加

Dim MnuFile AS Menu ′声明一个菜单类型的变量

Set munFile=Me.MenuEdit ′将MenuEdit赋给菜单变量

if Button=2 Then ′判断是否按动鼠标器右键
PopupMenu munFile ′弹出PopUpMenu。

End If