[求助] - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

提示：编译错误：“connecti"不是”SQLcommand“的成员

错误代码： cmd.Connecti

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog

dlg.Filter= "Access文件|*.mdb" '设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then

If Connections.Contains("test")

Connections.Delete("test")

End If

Connections.Add("test","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dlg.FileName & ";Persist Security Info=False")

Dim dt As DataTable

Dim cmd As new SQLCommand

cmd.Connecti

cmd.CommandText = "SELECT * F rom {表A}"

dt = cmd.ExecuteReader()

For Each dr As DataRow In DataTables("对公客户明细").Select("账号 is not null")

Dim fdr As DataRow = DataTables("对公客户明细").Find("账号 = '"& dr("账号") &"'")

If fdr Is Nothing Then

fdr = DataTables("对公客户明细").AddNew

fdr("账号") = dr ("账号")

fdr("经营情况") = dr("经营情况")

fdr("企业规模") = dr("企业规模")

fdr("联系人") = dr("联系人")

fdr("职务及备注信息") = dr("职务及备注信息")

fdr("金融需求与个人爱好") = dr("金融需求与个人爱好")

fdr("座机") = dr("座机")

fdr("手机") = dr("手机")

fdr("地址") = dr("地址")

fdr("身份证号") = dr("身份证号")

fdr("已开通业务") = dr("已开通业务")

fdr("准备开通业务") = dr("准备开通业务")

fdr("紧急程度") = dr("紧急程度")

fdr("认领员工") = dr("认领员工")

fdr("联系情况及网点反馈") = dr("联系情况及网点反馈")

Else

fdr("经营情况") &=Iif(fdr.IsNull("经营情况"),dr("经营情况"),Iif(fdr("经营情况").contains(dr("经营情况")) OrElse dr.IsNull("经营情况"),"",","& dr("经营情况")))

fdr("企业规模") &=Iif(fdr.IsNull("企业规模"),dr("企业规模"),Iif(fdr("企业规模").contains(dr("企业规模")) OrElse dr.IsNull("企业规模"),"",","& dr("企业规模")))

fdr("联系人") &=Iif(fdr.IsNull("联系人"),dr("联系人"),Iif(fdr("联系人").contains(dr("联系人")) OrElse dr.IsNull("联系人"),"",","& dr("联系人")))

fdr("职务及备注信息") &=Iif(fdr.IsNull("职务及备注信息"),dr("职务及备注信息"),Iif(fdr("职务及备注信息").contains(dr("职务及备注信息")) OrElse dr.IsNull("职务及备注信息"),"",","& dr("职务及备注信息")))

fdr("金融需求与个人爱好") &=Iif(fdr.IsNull("金融需求与个人爱好"),dr("金融需求与个人爱好"),Iif(fdr("金融需求与个人爱好").contains(dr("金融需求与个人爱好")) OrElse dr.IsNull("金融需求与个人爱好"),"",","& dr("金融需求与个人爱好")))

fdr("座机") &=Iif(fdr.IsNull("座机"),dr("座机"),Iif(fdr("座机").contains(dr("座机")) OrElse dr.IsNull("座机"),"",","& dr("座机")))

fdr("手机") &=Iif(fdr.IsNull("手机"),dr("手机"),Iif(fdr("手机").contains(dr("手机")) OrElse dr.IsNull("手机"),"",","& dr("手机")))

fdr("地址") &=Iif(fdr.IsNull("地址"),dr("地址"),Iif(fdr("地址").contains(dr("地址")) OrElse dr.IsNull("地址"),"",","& dr("地址")))

fdr("身份证号") &=Iif(fdr.IsNull("身份证号"),dr("身份证号"),Iif(fdr("身份证号").contains(dr("身份证号")) OrElse dr.IsNull("身份证号"),"",","& dr("身份证号")))

fdr("已开通业务") &=Iif(fdr.IsNull("已开通业务"),dr("已开通业务"),Iif(fdr("已开通业务").contains(dr("已开通业务")) OrElse dr.IsNull("已开通业务"),"",","& dr("已开通业务")))

fdr("准备开通业务") &=Iif(fdr.IsNull("准备开通业务"),dr("准备开通业务"),Iif(fdr("准备开通业务").contains(dr("准备开通业务")) OrElse dr.IsNull("准备开通业务"),"",","& dr("准备开通业务")))

fdr("紧急程度") &=Iif(fdr.IsNull("紧急程度"),dr("紧急程度"),Iif(fdr("紧急程度").contains(dr("紧急程度")) OrElse dr.IsNull("紧急程度"),"",","& dr("紧急程度")))

fdr("认领员工") &=Iif(fdr.IsNull("认领员工"),dr("认领员工"),Iif(fdr("认领员工").contains(dr("认领员工")) OrElse dr.IsNull("认领员工"),"",","& dr("认领员工")))

fdr("联系情况及网点反馈") &=Iif(fdr.IsNull("联系情况及网点反馈"),dr("联系情况及网点反馈"),Iif(fdr("联系情况及网点反馈").contains(dr("联系情况及网点反馈")) OrElse dr.IsNull("联系情况及网点反馈"),"",","& dr("联系情况及网点反馈")))

End If

Connections.Delete("test")

End If

主题：[求助]