VB程序员博客

大家好，我下了一个黑马按钮控件，也 regsvr hmbutton.ocx 注册了，但是将控件添加在窗体上时，编译没错误，退出是，出现：“VB出现问题需要关闭”。。。。。。。。。。。。。这是什么原因呢，怎么解决啊？？？谢谢o(∩_∩)o…别人写的控件,不是自己的东西,谁知道里面都写了什么,unload里加一句试试看
on error resume next不知道，黑马按钮控件不是一款用得很好的控件吗，还是不行在外接程序管理器里 选择黑马按钮,将加载和在启动中加载都选中…试试看这个控件没听说过，估计是个人或者小公司写的。

出现“VB出现问题需要关闭”说明异常比较底层，这种问题在你的客户端调用一般解决不了。这个问题应该是控件设计不完善，或者在当前系统下不兼容造成的。应该联系控件作者，或者使用成熟的控件代替。我也没有听说过，我这里面有好多控件，楼主看看？
http://download.csdn.net/source/1601508

大家好，我下了一个黑马按钮控件，也 regsvr hmbutton.ocx 注册了，但是将控件添加在窗体上时，编译没错误，退出是，出现：“VB出现问题需要关闭”。。。。。。。。。。。。。这是什么原因呢，怎么解决啊？？？谢谢o(∩_∩)o…别人写的控件,不是自己的东西,谁知道里面都写了什么,unload里加一句试试看
on error resume next不知道，黑马按钮控件不是一款用得很好的控件吗，还是不行在外接程序管理器里 选择黑马按钮,将加载和在启动中加载都选中…试试看这个控件没听说过，估计是个人或者小公司写的。

出现“VB出现问题需要关闭”说明异常比较底层，这种问题在你的客户端调用一般解决不了。这个问题应该是控件设计不完善，或者在当前系统下不兼容造成的。应该联系控件作者，或者使用成熟的控件代替。我也没有听说过，我这里面有好多控件，楼主看看？
http://download.csdn.net/source/1601508

大家好，我下了一个黑马按钮控件，也 regsvr hmbutton.ocx 注册了，但是将控件添加在窗体上时，编译没错误，退出是，出现：“VB出现问题需要关闭”。。。。。。。。。。。。。这是什么原因呢，怎么解决啊？？？谢谢o(∩_∩)o…别人写的控件,不是自己的东西,谁知道里面都写了什么,unload里加一句试试看
on error resume next不知道，黑马按钮控件不是一款用得很好的控件吗，还是不行在外接程序管理器里 选择黑马按钮,将加载和在启动中加载都选中…试试看这个控件没听说过，估计是个人或者小公司写的。

出现“VB出现问题需要关闭”说明异常比较底层，这种问题在你的客户端调用一般解决不了。这个问题应该是控件设计不完善，或者在当前系统下不兼容造成的。应该联系控件作者，或者使用成熟的控件代替。我也没有听说过，我这里面有好多控件，楼主看看？
http://download.csdn.net/source/1601508

大家好，我下了一个黑马按钮控件，也 regsvr hmbutton.ocx 注册了，但是将控件添加在窗体上时，编译没错误，退出是，出现：“VB出现问题需要关闭”。。。。。。。。。。。。。这是什么原因呢，怎么解决啊？？？谢谢o(∩_∩)o…别人写的控件,不是自己的东西,谁知道里面都写了什么,unload里加一句试试看
on error resume next不知道，黑马按钮控件不是一款用得很好的控件吗，还是不行在外接程序管理器里 选择黑马按钮,将加载和在启动中加载都选中…试试看这个控件没听说过，估计是个人或者小公司写的。

出现“VB出现问题需要关闭”说明异常比较底层，这种问题在你的客户端调用一般解决不了。这个问题应该是控件设计不完善，或者在当前系统下不兼容造成的。应该联系控件作者，或者使用成熟的控件代替。我也没有听说过，我这里面有好多控件，楼主看看？
http://download.csdn.net/source/1601508

就是把Excel的数据导入到Access数据库中，代码如下：

Private Sub cmdInput_Click()
CommonDialog1.CancelError = True
On Error GoTo Err:
CommonDialog1.Filter = "(*.xls)|*.xls"
CommonDialog1.FileName = ""
CommonDialog1.ShowOpen
Dim excelPath As String
excelPath = CommonDialog1.FileName
Err:
If Err.Number <> 0 Then
Exit Sub
End If
Dim Msg, Style, Title, Response
Msg = "导入新数据前将清空原有数据（不可恢复），您确定要导入吗？"
Style = vbYesNo + vbExclamation + vbDefaultButton2
Title = "提醒"
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "dbemp.mdb;" & "Persist Security Info=False"
conn.Open
Dim tableName As String
tableName = "Emptable"
Set rs = conn.OpenSchema(adSchemaTables, Array(Empty, Empty, tableName, "Table"))
If Not rs.EOF Then
conn.Execute "Drop Table [Emptable]"
End If
Dim db As Database
Dim sheet As String
Dim accessPath As String
Dim accessTable As String
Dim SQL As String
accessPath = App.Path & "dbemp.mdb"
accessTable = "Emptable"
sheet = "sheet1"
Set db = OpenDatabase(excelPath, True, False, "Excel 8.0")
SQL = ("Select * into [;database=" & accessPath & "]." & accessTable & " from [" & sheet & "$]")
db.Execute (SQL)
rs.Close
conn.Close

现在有个很奇怪的问题，如果Excel的每个单元格中的数据都是字母或者都是数字的话，那么可以正常导入，而那些数据中如果既有字母也有数字的话，那么那些纯为数字的单元格中的数据将无法导入，这是怎么回事呀，而且就算事先把所有单元格格式设定为“文本”类型，那些数字还是无法导入，郁闷！

补充一点：如果表中已有数据的情况，把单元格格式设定为“文本”类型，那也是无法导入的；但如果是设定“文本”类型以后，再向单元格中输入数字，那这些数字可被导入！现在有个很奇怪的问题，如果Excel的每个单元格中的数据都是字母或者都是数字的话，那么可以正常导入，而那些数据中如果既有字母也有数字的话，那么那些纯为数字的单元格中的数据将无法导入，这是怎么回事呀，而且就算事先把所有单元格格式设定为“文本”类型，那些数字还是无法导入，郁闷！

看了一下你代码,只是想说ado的方式操作excel不是很稳定,一般来说 可以用 加一个

空格的方式，是ado不把这行当成数字格式的。。。不过这个我记不清楚了，如果不成功的话

我研究一下

保底的方式是vba 但是从难易度 和  效率来看都不好。。。http://www.cnblogs.com/frostcity/archive/2008/03/07/1095484.html

这个方案也可以考虑，文本数字的混合型输入本身就不太好解决<
<
<
有这种事,我想不是ado不稳定,还是数据格式问题,Excel2003将数字作为字符处理比较怪,左上角有个黄色的小三角<
<
主要是先输入还是先设格式的问题，呵呵

导入Excel时，在Access数据表中不管是“在原有数据上追加数据”，还是“把原有数据清零后再添加数据”，小弟都很想要啊，前辈们有没有这方面的好东西啊详细点，可以吗？http://topic.csdn.net/t/20050528/10/4041671.html比如说，程序界面上有个“导入”按钮，后台有个Access数据库，里面有个表叫“a表”

我能不能点击“导入”按钮，然后在硬盘上选择一个Excel文件，就可以把这个Excel文件里的记录全部导入到Access数据库里的“a表”中

导入方式可能有两种：
一种是先将“a表”中的记录清空后，再把Excel中的记录写到“a表”中
另一种是“a表”中的原有记录还在，然后把Excel中的记录追加进“a表”

只要能得到源码，导入方式是哪一种，小弟无所谓呀链接上一大堆的源代码呢,你照着抄好了…<

忘了告诉你 conn.Execute "Drop table [Emptable]" 需要注释了
如还有问题在联系<
<

小弟不会vba编程，不得已而用之，请勿见笑。
要求是在access里编一段vba程序，功能如下：
1.遍历某文件夹下的所有excel文件。
2.将读取到的excel文件导入access（每次一个）。
3.再将该access文件导入到sqlserver（每次一个）。
第一步比较简单，请教下大家2、3步该怎么做~谢谢

大家别认为我这么导来导去的吃多了。。。实在时excel在导入sqlserver时，如果表中某列既有数字又有字符时，进到sqlserver全是NULL。。经多次试验发现只能先导到access再进sqlserver才可以:(  不知道微软咋搞得

我做了一个vb MSHFlexGrid1表中的数据导入到EXCEL中，导出后显示在Excel单元格中，由于字段过长而导致显示不完全，有没有办法解决这个问题？

请高手帮忙！

Columns("B:B").ColumnWidth = 28.63

没注意是自动

Columns("B:B").EntireColumn.AutoFit

Sub daoyu()
      Dim row As Integer
      Dim colm As Integer
      Dim sheet1 As Object
      Dim excel_app As Object
                Dim xlsbook  As New Excel.Workbook
          DoEvents
          Set excel_app = CreateObject("excel.application")
          excel_app.Workbooks.Open (CommonDialog1.FileName)
          Set sheet1 = excel_app.Workbooks(1).Worksheets("sheet1")
          ret.CursorLocation = adUseClient
   
          ret.Open sql, conn, adOpenKeyset, adLockPessimistic
         
          fieldsnu = ret.Fields.Count
          conn.BeginTrans
          row = 2
          'Do    'While (Len(Trim$(Sheet.Cells(row, 1))) > 0)
          If Len(Trim(Sheet.Cells(row, 1))) = 0 Then
         
          MsgBox "没有数据！", vbOKOnly + vbExclamation, "温馨提示"
          ret.AddNew
          For colm = 0 To fieldsnu - 1
          ret.Fields(colm).Value = Trim(sheet1.Cells(row, colm + 1).Value)
          Next colm
          ret.Update
          row = row + 1
         
         
          ret.Close
          Set ret = Nothing
          MsgBox "导入数据成功！", vbOKOnly + vbExclamation, "温馨提示"
          conn.CommitTrans
          excel_app.ActiveWorkbook.Close
          excel_app.Application.Quit
          excel_app.Quit
          Set sheet1 = Nothing
          Set excel_app = Nothing
          conn.Close
          Set conn = Nothing
         
          End If
        End Sub

    Private Sub Command1_Click()
    sql = "select  *  from  collegedepart"
          Call daoyu

End Sub
运行的时候没有响应，急求帮助！！！
在做毕业论文，快要交了，很急呀

ret =ADODB.Recordset ？

有一个txt文件，有12列，若干行，是从其他地方拷贝过来的数据，行数不确定，每个数据中间是用 tab 分隔的。

vb5 + windows xp 无法使用 split 函数

command1 + msflexgrid1（没有进行任何设置）

现在想要实现的第一个目标是：

点击 command1 之后，从 app.path 的 test.txt 中把数据读到 msflexgrid1 中，msflexgrid1 的行数需要根据 txt 的行数动态添加。

请问：这个目标有办法实现吗？谢了先！

请问：我现在想在第一列填入id号，并让第一列不允许编辑（已添加text）。

能否把第一列整个空出来，从第二列开始读入数据？

还有，怎么让第一列不被编辑？