已有23人关注
关于水晶报表在VB中访问带有密码的ACESS数据库,提示密码无效!
发表在VB答疑区 2008-03-21
是否精华
版块置顶:
各位高手,我最近在做一个数据库的小系统,采用VB+Access来做,数据库加了密码。如果单独用水晶报表做能访问;我的数据库访问方法(如果单独访问也正常)是:<BR>&nbsp;&nbsp;&nbsp;&nbsp; ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &amp; App.Path &amp; "\lsgx.mdb;jet oledb:database password=" &amp; CStr(databasepassword) &amp; ";Persist Security Info=False"<BR>结合在一起,即在VB中用水晶报表访问带有密码的数据库就提示:密码无效[em1]
分享到:
精彩评论 4
Amy
学分:0 LV1
2008-03-22
沙发
<P>您好 !</P>
<P>ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &amp; App.Path &amp; "<FONT color=#ff0033>\</FONT>lsgx.mdb;jet oledb:database password=" &amp; CStr(<FONT color=#ff0033>databasepassword</FONT>) &amp; ";Persist Security Info=False"<BR><FONT color=#ff0066>1、请确定您的字符串(<FONT color=#ff0033>databasepassword</FONT>)是否传过来了。</FONT></P>
<P><FONT color=#ff0066>2、请确定<FONT color=#ff0033>databasepassword是否被定义的是全局变量。</FONT></FONT></P>
<P><FONT color=#ff0066>如果确定该字符串已传过来,请把其余代码发给我们,我们会尽快为您解决问题.</FONT></P>
freefly
学分:0 LV1
2008-03-23
板凳
<P>'查询代码</P>
<P>Public Report As New dsrXtreme<BR>Public Function ConnectString() _<BR>&nbsp;&nbsp; As String<BR>&nbsp;&nbsp; Const DatabasePassword = 888888</P>
<P>'returns a DB ConnectString<BR>&nbsp;&nbsp; 'ConnectString = "FileDSN=xtreme.dsn"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &amp; App.Path &amp; "\xtreme.mdb;Persist Security Info=False"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &amp; App.Path &amp; "\lsgx.mdb;Persist Security Info=False"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &amp; App.Path &amp; "\lsgx.mdb;jet oledb:database password=751219" &amp; ";Persist Security Info=False"<BR>&nbsp;&nbsp;&nbsp;&nbsp; ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &amp; App.Path &amp; "\lsgx.mdb;jet oledb:database password=" &amp; CStr(DatabasePassword) &amp; ";Persist Security Info=False"<BR>MsgBox ConnectString<BR>End Function<BR>Public Function ExecuteSQL(ByVal SQL _<BR>&nbsp;&nbsp; As String, MsgString As String) _<BR>&nbsp;&nbsp; As ADODB.Recordset<BR>'executes SQL and returns Recordset<BR>&nbsp;&nbsp; Dim cnn As ADODB.Connection<BR>&nbsp;&nbsp; Dim rst As ADODB.Recordset<BR>&nbsp;&nbsp; Dim sTokens() As String<BR>&nbsp;&nbsp; <BR>&nbsp;&nbsp; On Error GoTo ExecuteSQL_Error<BR>&nbsp;&nbsp; <BR>&nbsp;&nbsp; sTokens = Split(SQL)<BR>&nbsp;&nbsp; Set cnn = New ADODB.Connection<BR>&nbsp;&nbsp; cnn.Open ConnectString<BR>&nbsp;&nbsp; If InStr("INSERT,DELETE,UPDATE,EXECUTE", _<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; UCase$(sTokens(0))) Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; cnn.Execute (SQL)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgString = sTokens(0) &amp; _<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; " query successful"<BR>&nbsp;&nbsp; Else<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set rst = New ADODB.Recordset<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; rst.Open Trim$(SQL), cnn, _<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; adOpenKeyset, _<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; adLockOptimistic<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'rst.MoveLast&nbsp;&nbsp;&nbsp;&nbsp; 'get RecordCount<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set ExecuteSQL = rst<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgString = "查询到" &amp; rst.RecordCount &amp; _<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; " 条记录 "<BR>&nbsp;&nbsp; End If<BR>ExecuteSQL_Exit:<BR>&nbsp;&nbsp; Set rst = Nothing<BR>&nbsp;&nbsp; Set cnn = Nothing<BR>&nbsp;&nbsp; Exit Function<BR>&nbsp;&nbsp; <BR>&nbsp;&nbsp; <BR>ExecuteSQL_Error:<BR>&nbsp;&nbsp; MsgString = "查询错误: " &amp; _<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Err.Description<BR>&nbsp;&nbsp; Resume ExecuteSQL_Exit<BR>End Function<BR>'至于水晶那部分</P>
<P>Private Sub cmdCancel_Click()<BR>&nbsp;&nbsp;&nbsp; Unload Me<BR>End Sub</P>
<P>Private Sub cmdOK_Click()<BR>&nbsp;&nbsp;&nbsp; Dim txtFromD As String<BR>&nbsp;&nbsp;&nbsp; Dim txtToD As String</P>
<P>&nbsp; '&nbsp; On Error GoTo cmdOK_Click_Error<BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; Dim strSelectionFormula As String<BR>&nbsp;&nbsp;&nbsp; Dim strSubHeading As String<BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; txtFromD = Trim(Combo1) &amp; "-" &amp; Trim(Combo2) &amp; "-" &amp; Trim(Combo3)<BR>&nbsp;&nbsp;&nbsp; txtToD = Trim(Combo4) &amp; "-" &amp; Trim(Combo5) &amp; "-" &amp; Trim(Combo6)<BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; 'Validate controls<BR>&nbsp;&nbsp;&nbsp; If Not IsDate(txtFromD) Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgBox "请选择报表数据开始日期!", vbOKOnly + vbCritical, "报表设计"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Combo1.SetFocus<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exit Sub<BR>&nbsp;&nbsp;&nbsp; End If&nbsp; 'IsNull(txtFromDate)...</P>
<P>&nbsp;&nbsp;&nbsp; If Not IsDate(txtToD) Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgBox "请选择报表数据结束日期!", vbOKOnly + vbCritical, "报表设计"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Combo4.SetFocus<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exit Sub<BR>&nbsp;&nbsp;&nbsp; End If&nbsp; 'IsNull(txtFromDate)...</P>
<P><BR>&nbsp;&nbsp;&nbsp; If OptEmail And txtAddress = "" Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgBox "请输入电子邮件地址", vbOKOnly + vbCritical, "报表设计"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; txtAddress.SetFocus<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exit Sub<BR>&nbsp;&nbsp;&nbsp; End If&nbsp; 'OptEmail And IsNull(txtAddress)<BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; If CDate(txtFromD) &gt; CDate(txtToD) Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgBox "结束日期必须不早于开始时间", vbOKOnly + vbCritical, "报表设计"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Combo4.SetFocus<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exit Sub<BR>&nbsp;&nbsp;&nbsp; End If&nbsp; 'CDate(txtFromDate) &gt; CDate(txtToDate)<BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; Screen.MousePointer = vbHourglass<BR>&nbsp;&nbsp;&nbsp; Report.DiscardSavedData 'required for consistent results<BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; 'Supply record selection based on dates<BR>&nbsp;&nbsp;&nbsp; 'strSelectionFormula = "{Orders.Order Date} in #" &amp; _<BR>&nbsp;&nbsp;&nbsp; 'txtFromD &amp; "# to #" &amp; txtToD &amp; "#"<BR>&nbsp;&nbsp;&nbsp;&nbsp; strSelectionFormula = "{rcb.rq} in #" &amp; _<BR>&nbsp;&nbsp;&nbsp; txtFromD &amp; "# to #" &amp; txtToD &amp; "#" '要求表字段类型为日期/时间<BR>&nbsp;&nbsp;&nbsp; '{rcb.cph} in "4" to "京A32345"<BR>&nbsp;&nbsp; '&nbsp;&nbsp;&nbsp;&nbsp; strSelectionFormula = "{rcb.rq} in " &amp; _<BR>&nbsp;&nbsp;&nbsp; 'txtFromD &amp; " to " &amp; txtToD&nbsp; '要求表字段类型为日期/时间</P>
<P><BR>&nbsp;&nbsp;&nbsp; 'txtFromDate &amp; "# to #" &amp; txtToDate &amp; "#"<BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; Report.RecordSelectionFormula = strSelectionFormula<BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp; 'Set @Order + Tax formula<BR>&nbsp;&nbsp;&nbsp; Dim FormulaField As CRAXDRT.FormulaFieldDefinition<BR>&nbsp;&nbsp;&nbsp; Set FormulaField = Report.FormulaFields.GetItemByName("jz")<BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp; ' If txtTaxRate = "" Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'Report.FormulaFields(1).Text = "{Orders.Order Amount}"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; FormulaField.Text = "{rcb.mz}-" &amp; "{rcb.pz}"<BR>&nbsp;&nbsp;&nbsp; 'Else<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'Report.FormulaFields(1).Text = "{Orders.Order Amount} * " &amp; Str(txtTaxRate / 100 + 1)<BR>&nbsp;&nbsp;&nbsp;&nbsp; '&nbsp;&nbsp; FormulaField.Text = "{Orders.Order Amount} * " &amp; Str(txtTaxRate / 100 + 1)<BR>&nbsp;&nbsp;&nbsp; 'End If&nbsp; 'txtTaxRate = ""<BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; 'Set grouping<BR>&nbsp;&nbsp;&nbsp; If cboGroupBy = "季度" Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Report.Areas("GH").GroupConditionField = _<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Report.Database.Tables(1).Fields(2)&nbsp; 'Orders.Order Date<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Report.Areas("GH").GroupCondition = crGCQuarterly '此处可以选择每日等的参数<BR>&nbsp;&nbsp;&nbsp; Else<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Report.Areas("GH").GroupConditionField = _<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Report.Database.Tables(1).Fields(16)&nbsp; 'Customer.Customer Name<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Report.Areas("GH").GroupCondition = crGCAnyValue<BR>&nbsp;&nbsp;&nbsp; End If&nbsp; 'cboGroupBy = "Quarter"<BR>&nbsp;&nbsp;&nbsp; 'Set parameter value<BR>&nbsp;&nbsp;&nbsp; 'Alternative method is to format details section within VB<BR>&nbsp;&nbsp;&nbsp; 'If txtHighlight = "" Then<BR>&nbsp;&nbsp;&nbsp; '&nbsp;&nbsp;&nbsp; Report.ParameterFields(1).AddCurrentValue (0)<BR>&nbsp;&nbsp;&nbsp; 'Else<BR>&nbsp;&nbsp;&nbsp; '&nbsp;&nbsp;&nbsp; Report.ParameterFields(1).AddCurrentValue (Val(txtHighlight))<BR>&nbsp;&nbsp;&nbsp; 'End If&nbsp; 'txtHighlight = ""<BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; 'Set grouping<BR>&nbsp;&nbsp;&nbsp; Report.subHeading.SetText ("aaaa")<BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; 'Hide/show sections<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; With Report<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If chkSummary Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Areas("D").HideForDrillDown = True<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .phb.Suppress = True<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Areas("GH1").HideForDrillDown = True<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .gh1a.Suppress = False<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .gh1b.Suppress = False<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Areas("D").HideForDrillDown = False<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .phb.Suppress = False<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Areas("GH1").HideForDrillDown = False<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .gh1a.Suppress = False<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .gh1b.Suppress = True<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If&nbsp; 'chkSummary<BR>&nbsp;&nbsp;&nbsp; End With&nbsp;&nbsp;&nbsp; 'Report</P>
<P><BR>&nbsp;&nbsp;&nbsp; If optPreview Then<BR>&nbsp;&nbsp;&nbsp;&nbsp; frmViewer.Show<BR>&nbsp;&nbsp;&nbsp; End If<BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; Screen.MousePointer = vbDefault<BR>&nbsp;&nbsp;&nbsp; Exit Sub<BR>&nbsp;&nbsp;&nbsp; <BR>cmdOK_Click_Error:<BR>&nbsp;&nbsp;&nbsp; Screen.MousePointer = vbDefault<BR>&nbsp;&nbsp;&nbsp; Select Case Err.Number<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case -2147190889<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgBox "Report Cancelled", vbInformation, "Xtreme Order Report"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case -2147190908<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgBox "Invalid E-Mail address or other e-mail problem", vbCritical, "Xtreme Order Report"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; txtAddress.SetFocus<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case Else<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgBox "Error " &amp; Err.Number &amp; " - " &amp; Err.Description, vbCritical, "Xtreme Order Report"<BR>&nbsp;&nbsp;&nbsp; End Select&nbsp; 'Case Err.Number<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>End Sub</P>
<P>Private Sub Form_Load()<BR>&nbsp;&nbsp;&nbsp; Dim mrc As ADODB.Recordset<BR>&nbsp;&nbsp;&nbsp; Dim txtSQL As String<BR>&nbsp;&nbsp;&nbsp; Dim MsgTxt As String<BR>&nbsp;&nbsp;&nbsp; Dim i As Integer<BR>&nbsp;&nbsp;&nbsp; Report.Database.Tables(1).ConnectBufferString = ConnectString<BR>&nbsp;&nbsp;&nbsp; 'txtFromDate = Format(#1/1/2001#, "Short Date")<BR>&nbsp;&nbsp;&nbsp; 'txtToDate = Format(#12/31/2001#, "Short Date")<BR>&nbsp;&nbsp;&nbsp; cboGroupBy.Text = "季度"<BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp; ' txtSQL = "select distinct year(订单日期) from 订单"<BR>&nbsp;&nbsp; txtSQL = "select distinct year(rq) from rcb"<BR>&nbsp;&nbsp;&nbsp; Set mrc = ExecuteSQL(txtSQL, MsgTxt)<BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; If Not mrc.EOF Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Do While Not mrc.EOF<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Combo1.AddItem mrc.Fields(0)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Combo4.AddItem mrc.Fields(0)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; mrc.MoveNext<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Loop<BR>&nbsp;&nbsp;&nbsp; End If<BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; mrc.Close<BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; For i = 1 To 12<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Combo2.AddItem i<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Combo5.AddItem i<BR>&nbsp;&nbsp;&nbsp; Next i<BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; For i = 1 To 31<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Combo3.AddItem i<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Combo6.AddItem i<BR>&nbsp;&nbsp;&nbsp; Next i<BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; Combo1.ListIndex = 0<BR>&nbsp;&nbsp;&nbsp; Combo4.ListIndex = 0<BR>&nbsp;&nbsp;&nbsp; Combo2.ListIndex = 0<BR>&nbsp;&nbsp;&nbsp; Combo5.ListIndex = 11<BR>&nbsp;&nbsp;&nbsp; Combo3.ListIndex = 0<BR>&nbsp;&nbsp;&nbsp; Combo6.ListIndex = 0<BR>&nbsp;&nbsp;&nbsp; <BR>End Sub</P>
<P>Private Sub Form_Unload(Cancel As Integer)<BR>&nbsp;&nbsp;&nbsp; Set Report = Nothing<BR>End Sub</P>
<P>Private Sub OptEmail_Click()<BR>&nbsp;&nbsp;&nbsp; txtAddress.Enabled = True<BR>&nbsp;&nbsp;&nbsp; lblAddress.Enabled = True<BR>End Sub</P>
<P>Private Sub optPreview_Click()<BR>&nbsp;&nbsp;&nbsp; txtAddress.Enabled = False<BR>&nbsp;&nbsp;&nbsp; lblAddress.Enabled = False<BR>End Sub</P>
<P>Private Sub OptPrint_Click()<BR>&nbsp;&nbsp;&nbsp; txtAddress.Enabled = False<BR>&nbsp;&nbsp;&nbsp; lblAddress.Enabled = False<BR>End Sub</P>
<P><BR>Private Sub txtAddress_GotFocus()<BR>&nbsp;&nbsp;&nbsp; txtAddress.SelStart = 0<BR>&nbsp;&nbsp;&nbsp; txtAddress.SelLength = Len(txtAddress)<BR>End Sub</P>
<P>Private Sub txtFromDate_GotFocus()<BR>&nbsp;&nbsp;&nbsp; txtFromDate.SelStart = 0<BR>&nbsp;&nbsp;&nbsp; txtFromDate.SelLength = Len(txtFromDate)<BR>End Sub</P>
<P>Private Sub txtFromDate_LostFocus()<BR>&nbsp;&nbsp;&nbsp; txtFromDate = Format(txtFromDate, "Short Date")<BR>End Sub</P>
<P>Private Sub txtHighlight_GotFocus()<BR>&nbsp;&nbsp;&nbsp; txtHighlight.SelStart = 0<BR>&nbsp;&nbsp;&nbsp; txtHighlight.SelLength = Len(txtHighlight)<BR>End Sub</P>
<P>Private Sub txtHighlight_LostFocus()<BR>&nbsp;&nbsp;&nbsp; If txtHighlight &lt;&gt; "" Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; txtHighlight = Val(txtHighlight)<BR>&nbsp;&nbsp;&nbsp; End If&nbsp; 'txtHighlight &lt;&gt; ""<BR>End Sub</P>
<P>Private Sub txtTaxRate_GotFocus()<BR>&nbsp;&nbsp;&nbsp; txtTaxRate.SelStart = 0<BR>&nbsp;&nbsp;&nbsp; txtTaxRate.SelLength = Len(txtTaxRate)<BR>End Sub</P>
<P>Private Sub txtTaxRate_LostFocus()<BR>&nbsp;&nbsp;&nbsp; If txtTaxRate &lt;&gt; "" Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; txtTaxRate = Val(txtTaxRate)<BR>&nbsp;&nbsp;&nbsp; End If&nbsp; 'txtTaxRate &lt;&gt; ""<BR>End Sub</P>
<P>Private Sub txtToDate_GotFocus()<BR>&nbsp;&nbsp;&nbsp; txtToDate.SelStart = 0<BR>&nbsp;&nbsp;&nbsp; txtToDate.SelLength = Len(txtToDate)<BR>End Sub</P>
<P>Private Sub txtToDate_LostFocus()<BR>&nbsp;&nbsp;&nbsp; txtToDate = Format(txtToDate, "Short Date")<BR>End Sub<BR></P>
<P>打开水晶报表建立的窗体然后在"FROM_LOAD"中加入下面的语句,并在"="号后面写上登录数据库使用的连接字串,用户名与密码写在登录字串中<BR>Report.Database.Tables(1).ConnectBufferString&nbsp;="........."</P>
<P>为什么我加了代码还是说我“未指定数据库”呢?<BR></P>
freefly
学分:0 LV1
2008-03-23
地板
我用过 ACCESS/EXCEL(DAO)创建实验,另外也用 JET OLEDB 4。0 OLE DB(ADO)PROVIDER 试验。在CRYSTAL中均正常创建连接。就是到了窗体要显示报表之前提示:密码无效。
Lemon
学分:0 LV1
2008-03-26
4L
<P>您好!</P>
<P>如果方便的话,请您将程序连同数据库和水晶报表一起发送到<A href="mailto:mrlbb@126.com">mrlbb@126.com</A>油箱中,我们还是认为可能是<FONT color=#000000>databasepassword的值没有传递过来。</FONT></P>
首页上一页 1 下一页尾页 4 条记录 1/1页
手机同步功能介绍
友情提示:以下图书配套资源能够实现手机同步功能
明日微信公众号
明日之星 明日之星编程特训营
客服热线(每日9:00-17:00)
400 675 1066
mingrisoft@mingrisoft.com
吉林省明日科技有限公司Copyright ©2007-2022,mingrisoft.com, All Rights Reserved长春市北湖科技开发区盛北大街3333号长春北湖科技园项目一期A10号楼四、五层
吉ICP备10002740号-2吉公网安备22010202000132经营性网站备案信息 营业执照