[Vb.net] #CRYSTAL REPORT LOGON FAIL WITH PASSWORD PROTECTED ACCESS DATABASE

雨吟

请问，要怎样把listview 里头selected的那一行delete掉？

搜寻了很久都找不到答案。。。

[ 本帖最后由 雨吟 于 2-12-2005 04:27 PM 编辑 ]

雨吟

花了老半天，试来试去，成了。

ListView1.Items.Remove(ListView1.SelectedItems(0))


有谁可以告诉我，为什么要(0)??

呜哇~~想杀人，为了一行code搞老半天

goatstudio

这样写也可以, x 是要删除的 index.

Me.ListView1.Items(x).Remove()

[ 本帖最后由 goatstudio 于 10-11-2005 05:01 PM 编辑 ]

雨吟

楼上的大大，做么你什么都会的？

每次都多得你的指导，谢谢谢谢~~~

fxam

>ListView1.Items.Remove(ListView1.SelectedItems(0))
>有谁可以告诉我，为什么要(0)??
因为Listview允许选择多个item，有被选中的item都会在SelectedItems里，0是第一个被选中的ListItem。

如果你要用户最多只能选择一个item，就将Listview.MultiSelect设成false，这种情况下SelectedItems仍然有效，不过最多只有一个item。

雨吟

原帖由 fxam 于 11-11-2005 05:34 AM 发表
>ListView1.Items.Remove(ListView1.SelectedItems(0))
>有谁可以告诉我，为什么要(0)??
因为Listview允许选择多个item，有被选中的item都会在SelectedItems里，0是第一个被选中的ListItem。

如果你要 ...

嗯。。我以为既然是叫selecteditem, 就直接是那个被点击中的item 了。。。

看见你回复，还真是有点受宠若惊，因为太久没看见你了

无论如何，谢谢哦。。。。

雨吟

我没有做过在network跑的系统,所以想请教一下各位...

该系统会有2,3架不同的电脑使用,每架电脑将独立install,database放在其中一架电脑.

这样子，我要怎样declare 我的oledbconnection? 怎样控制data的一致性和deadlock诸如此类的冬冬?尤其，可以教我可以做最简单的setting的方法吗？因为顾虑
user不是专业，setting越简单越好。

对network完全零知识，希望可以教教我或者推荐一些简单的教材。。。谢谢谢谢

max5007

只要在一架电脑INSTALL DATABASE SERVER，然后其他电脑POINT到那架DATABASE就可以了，建议用MSSQL或MYSQL

雨吟

啊~抱歉忘了说，那只是很小的系统。。所以并不打算用SQL Server...

我现在用Access...

[ 本帖最后由 雨吟 于 13-11-2005 11:18 AM 编辑 ]

flashang

你也可以用 interbase / firebird

需要注意的是當某一些 table 有可能同時被 insert record 時, 可能需要 lock table / lock record

而且需要考慮防止一個 record 同時被不同的人 update / edit

當然你也可以考慮做 web based 的 application,
multiuser, 也不需要 install client, 還可能 upgrade 到外面的 user 都能用

雨吟

原帖由 flashang 于 13-11-2005 11:43 AM 发表

需要注意的是當某一些 table 有可能同時被 insert record 時, 可能需要 lock table / lock record

而且需要考慮防止一個 record 同時被不同的人 update / edit

嗯。。这些也是我考虑的要素。。因此，我想请问在这些问题的前提下，我要怎样做一些setting,或者在code里面做些什么。。。

系统之前就已经是 vb  + access... 现在是换成vb.net + access...所以， 我想知道在用 vb.net + access 的情况下，要怎样让他可以在没有设置server的network 里面跑？并且也兼顾到那一些lock, deadlock, syncronize 诸如此类的问题。。。。？

[ 本帖最后由 雨吟 于 13-11-2005 02:51 PM 编辑 ]

goatstudio

原帖由 雨吟 于 13-11-2005 02:49 PM 发表


嗯。。这些也是我考虑的要素。。因此，我想请问在这些问题的前提下，我要怎样做一些setting,或者在code里面做些什么。。。

系统之前就已经是 vb  + access... 现在是换成vb.net + access...所以， 我想知道 ...

Access 的话, 你需要在 Options 里作出 Advance setting, 例如 shared/exclusive open mode, default record locking .

前几年我做过 multiusers 的 VB6 + Access, record locking 全从程序里下手. 例如说, 你的程序开启了一个资料, 就在 Access 里把那行资料设为上锁, 那样暂时没人可以在你开启的时候更新它, 从而达到资料的完整性.

雨吟

原帖由 goatstudio 于 14-11-2005 09:37 AM 发表


Access 的话, 你需要在 Options 里作出 Advance setting, 例如 shared/exclusive open mode, default record locking .

前几年我做过 multiusers 的 VB6 + Access, record locking 全从程序里下手. 例如说 ...

哦。。。我会试一试。。。

network的setting如何呢？

现在我的oledbconnection 是point to local user 的path。要给multicomputer multiuser用的话，请问要怎样point 呢？

goatstudio

原帖由 雨吟 于 14-11-2005 11:20 AM 发表


哦。。。我会试一试。。。

network的setting如何呢？

现在我的oledbconnection 是point to local user 的path。要给multicomputer multiuser用的话，请问要怎样point 呢？

Network 方面其实很简单, 只要各电脑可以在 network 里看到对方就可以了.
你可以把资料库放在一个中央电脑上, 然后每台的 client 就用 oledb 来 point 去那资料库咯, 你可以用 map drive, 也可以直接指向那台电脑的名称/folder 啦.

雨吟

请帮我看要怎样让crystal report print 完arraylist里面的东西....我check过arraylist里头有超过一个,但是他出来的都是最后那个号码的资料而已....

我快晕了...

Public Sub ConfigureCpnCrystalReports(ByVal myArrayList As ArrayList)


Try
  Dim reportPath As String = "D:\Win Project\CRPS\Reports\Coupon.rpt"

  rptViewer.ReportSource = reportPath

Dim myParameterFields As ParameterFields = rptViewer.ParameterFieldInfo

  SetCurrentValuesForCpnParameterField(myParameterFields, myArrayList)


  Me.Show()


Catch ex As Exception
            MessageBox.Show(ex.Message)


End Try

End Sub

  
Public Sub SetCurrentValuesForCpnParameterField(ByVal myParameterFields As ParameterFields, ByVal myArrayList As ArrayList)
     
Dim currentParameterValues As ParameterValues = New ParameterValues

For i = 0 To myArrayList.Count - 1

         
  Dim myParameterDiscreteValue As ParameterDiscreteValue = New ParameterDiscreteValue

  myParameterDiscreteValue.Value = myArrayList(i).ToString() 这边看过了有超过一个
currentParameterValues.Add(myParameterDiscreteValue)

  Dim myParameterField As ParameterField = myParameterFields(PARAMETER_FIELD_NAME2)
  myParameterField.CurrentValues = currentParameterValues

Next
         


End Sub

[ 本帖最后由 雨吟 于 17-11-2005 05:16 PM 编辑 ]

雨吟

呜哇!!!!!我应该在3个小时前就做到了!!!做不到是因为我改了crystal report to accept multiple value, 然后没有save!!!!!


哇!!!!!!我要杀人!!!

callmee

原帖由 雨吟 于 14-11-2005 11:20 AM 发表


哦。。。我会试一试。。。

network的setting如何呢？

现在我的oledbconnection 是point to local user 的path。要给multicomputer multiuser用的话，请问要怎样point 呢？

我也是面对同样的问题.. 也是写了个小PROGRAM (VB.net + Access).  我直接POINT 向那个我放在SERVER 的DATABASE 但是我的PROGRAM 却找不到.... 各位大大有什么解决方案吗??

Imnotsad

以前好像看你还在新手。。现在这么厉害了。。。

雨吟

原帖由 callmee 于 17-11-2005 06:01 PM 发表



我也是面对同样的问题.. 也是写了个小PROGRAM (VB.net + Access).  我直接POINT 向那个我放在SERVER 的DATABASE 但是我的PROGRAM 却找不到.... 各位大大有什么解决方案吗??

我看了你的问题,你要做得好想跟我一样哦~~我看了这里的意见,不过还没有研究...

等我做到了在告诉你啦~(如果做到的话啦~)

原帖由 Imnotsad 于 17-11-2005 06:02  PM 发表
以前好像看你还在新手。。现在这么厉害了。。。

我哪里有利害..厉害的话就不会犯那样好笑的错误啦~~~~~~

coding是MSDN教的...MSDN应该没想到会有人白痴到没有save report就先跑code....

callmee

原帖由 Imnotsad 于 17-11-2005 06:02 PM 发表
以前好像看你还在新手。。现在这么厉害了。。。

你指的是我吗?? 你认识我??
我还是新手.... 而且很明显...