nieontheway的个人资料 - RAT

nieontheway nieontheway

关注数: 3 粉丝数: 21 发帖数: 9 关注贴吧数: 24

数据库连接问题 Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;" + "Data Source=" & Application.StartupPath & "\dbRNA.mdb" 我把名为dbRNA的数据库放在桌面的“VB”文件夹里，此文件夹里有“dbRDA表”和“RDA数据库操作”。上面的代码为什么会显示“找不到文件 'C:\Users\Administrator\Desktop\VB\RNA数据库操作\RNA数据库操作\bin\Debug\dbRNA.mdb'。”，路径关联的数据库和VB程序必须有特定的联系吗？

数据库连接问题。。 Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;" + "Data Source=" & Application.StartupPath & "\dbRNA.mdb" 我把名为dbRNA的数据库放在桌面的“VB”文件夹里，此文件夹里有“dbRDA表”和“RDA数据库操作”。上面的代码为什么会显示“找不到文件 'C:\Users\Administrator\Desktop\VB\RNA数据库操作\RNA数据库操作\bin\Debug\dbRNA.mdb'。”，路径关联的数据库和VB程序必须有特定的联系吗？

求高手指出哪里错了？34543这样的回文数判断不出来。。。 Public Class Form2_回文数2_ Function ishui(ByVal a As Integer) As Boolean Dim i As Integer ishui = True If Len(a) = 1 Then ishui = True Else For i = 1 To Int(Len(a) / 2) If Val(Mid(a, i, 1)) = Val(Mid(a, Len(a) - i + 1, 1)) Then ishui = True Else ishui = False End If Next End If If ishui Then Label3.Text = a & "★" & vbCrLf Else Label3.Text = a & vbCrLf End If End Function Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click Dim n As Integer n = TextBox1.Text Call ishui(n) End Sub End Class

1 下一页