主题：数据库连接

请问老师，我在服务器的d:根目录有SQL数据库LYXX_XX，下面的代码怎么能连接这个数据库读写员工表的数据呢。

Select Case e.Path
    Case "AddNew.htm"
        If e.PostValues.Count = 0 AndAlso e.Files.Count = 0 Then
            Dim sb As New StringBuilder
            sb.AppendLine("<meta name='viewport' c>")
            sb.AppendLine("<form enctype='multipart/form-data' action='AddNew.htm' method='post' id='form1' name='form1'>")
            sb.AppendLine("姓名: <input name='xm' id='xm'><br/><br/>")
            sb.AppendLine("部门: <input name='bm' id='bm'><br/><br/>")
            sb.AppendLine("职务: <input name='zw' id='zw'><br/><br/>")
            sb.AppendLine("学历: <input name='xl' id='xl'><br/><br/>")
            sb.AppendLine("照片: <input type='file' name='zp' id='zp' multiple><br/><br/>")
            sb.AppendLine("<input Type='submit' name='Sumbit' id='Sumbit' value='确定'>")
            sb.AppendLine("</form>")
            e.WriteString(sb.ToString)
        Else
            Dim dr As DataRow = DataTables("员工").AddNew()
            Dim inms() As String = {"xm","bm","zw","xl"} '输入框名称数组
            Dim cnms() As String = {"姓名","部门","职务","学历"} '列名数组,注意列名和输入框必须一一对应,位置不能错乱
            For i As Integer = 0 To inms.Length -1
                dr(cnms(i)) = e.PostValues(Inms(i))
            Next
            If  e.Files.ContainsKey("zp") Then
                dr("照片") = e.Files("zp")(0)
                e.SaveFile("zp", e.Files("zp")(0), ProjectPath & "Attachments\" & e.Files("zp")(0))
            End If
            dr.Save()
            Dim sb As New StringBuilder
            sb.AppendLine("增加记录成功! <br/><br/>")
            sb.AppendLine("<a href='AddNew.htm'>继续增加</a>")
            e.WriteString(sb.ToString)
        End If
End Select

1、必须先安装sqlserver才行；

2、必须把数据还原或者附加到sqlserver才行；

3、sql数据库无法直接使用，只能通过1、2之后，才能用。

1、服务器sqlserver已安装并正常使用，通过FTP方式连接应用没问题。

2、最近进行WEB设置，简单的网页也能正常使用。

3、必须把数据还原或者附加到sqlserver这个不懂怎么做？我的SQL库通过FTP连接还要用，现在怎么能通过WEB方式连接现有的数据库呢。

请老师指导啊。

把你的数据库附加或者还原到sqlserver里面，然后在foxtable里面添加数据源，才能使用。

https://www.baidu.com/baidu?wd=sqlserver+%E8%BF%98%E5%8E%9F+%E9%99%84%E5%8A%A0

请问老师：

1、分离附加后的数据库对现在FOXTBLE的FTP连接是否有影响？

2、分离附加后的数据库网页读写数据和FOXTABLE读写数据是不是同步。会不会是各存各的呢？

3、分离附加都要进行吗？

1、数据库和ftp没有任何关系；

2、只要你把数据库附加到sqlserver，再修改数据，那就是同步的；

3、不清楚你现在的问题是什么。你把数据库文件弄到你sqlserver了没有，弄进去才能用。

老师，我的数据库文件本来就在sqlserver里，现在用的很正常，过去是通过foxtable做了个项目连接应用，现在我想通过WEB方式连接已有的数据库。

我的sqlserver数据库放在服务器的D盘根目录，就是怎么能通过HTTP地址来读写数据。

1、你服务器上的foxtable程序，添加一个数据源，然后httprequest写代码

http://www.foxtable.com/mobilehelp/scr/283.htm

2、你客户端直接添加数据源连接，即可

http://www.foxtable.com/mobilehelp/scr/286.htm

终于用手机把数据写入了数据库，但不知我做的对不对。照片还传不上去，不知哪出错了，可能是路径不对吧。请老师给看看。

Select Case e.Path
    Case "AddNew.htm"
        If e.PostValues.Count = 0 AndAlso e.Files.Count = 0 Then
            Dim sb As New StringBuilder
            sb.AppendLine("<meta name='viewport' c>")
            sb.AppendLine("<form enctype='multipart/form-data' action='AddNew.htm' method='post' id='form1' name='form1'>")
            sb.AppendLine("姓名: <input name='xm' id='xm'><br/><br/>")
            sb.AppendLine("部门: <input name='bm' id='bm'><br/><br/>")
            sb.AppendLine("职务: <input name='zw' id='zw'><br/><br/>")
            sb.AppendLine("学历: <input name='xl' id='xl'><br/><br/>")
            sb.AppendLine("照片: <input type='file' name='zp' id='zp' multiple><br/><br/>")
            sb.AppendLine("<input Type='submit' name='Sumbit' id='Sumbit' value='确定'>")
            sb.AppendLine("</form>")
            e.WriteString(sb.ToString)
        Else
            Dim dr As DataRow = DataTables("员工").AddNew()
            Dim inms() As String = {"xm","bm","zw","xl"} '输入框名称数组
            Dim cnms() As String = {"姓名","部门","职务","学历"} '列名数组,注意列名和输入框必须一一对应,位置不能错乱
            For i As Integer = 0 To inms.Length -1
                dr(cnms(i)) = e.PostValues(Inms(i))
            Next
            If  e.Files.ContainsKey("zp") Then
                dr("照片") = e.Files("zp")(0)
                e.SaveFile("zp", e.Files("zp")(0), ProjectPath & "Attachments\" & e.Files("zp")(0))    '我想把照片存入服务器D:\职工照片\目录内。
            End If
            dr.Save()
            Dim sb As New StringBuilder
            sb.AppendLine("增加记录成功! <br/><br/>")
            sb.AppendLine("<a href='AddNew.htm'>继续增加</a>")
            e.WriteString(sb.ToString)
        End If
End Select

那就改成

e.SaveFile("zp", e.Files("zp")(0), "D:\职工照片\" & e.Files("zp")(0))